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Introduction 


Ces  notes  de  cours  introduisent  la  notion  de  fonction  calculable  en 
etudiant  le  formalisme  du  X-caicul. 

Ces  notes  consistent  pr6sentement  en  deux  chapitres. 

Le  premier  chapitre  traite  du  formalisme  de  base  :  le  X-K-calcul  pur 
avec  la  p-conversion.  Ce  formalisme  est  traite  de  fagon  homogene,  avec 
I'usage  syst6matique  de  la  structure  abstraite  de  de  Bruijn.  Les 
definitions  sont  exprim6es  de  maniAre  compl6tement  constructive  et 
m§me  executable,  dans  le  langage  CAML.  Une  m6thode  uniforme  de 
marquage  permet  de  degager  simplement  I'id6e  directrice  des  preuves. 

Les  principaux  th6oremes  pr6sent6s  sont  le  theoreme  du  losange  et  sa 
consequence  la  confluence  des  calculs,  le  theoreme  des  developpements 
finis  et  sa  consequence  le  theoreme  de  standardisation,  enfin  le  theoreme 
de  B6hm  et  ses  consequences  semantiques. 


Le  deuxieme  chapitre  traite  de  differents  calculs  typ6s,  modeiisant  des 
langages  fonctionnels  divers,  ou  des  systemes  d'inf6rence  en  deduction, 
naturelle,  suivant  la  correspondance  de  Curry-Howard.  La  caracterisation 
des  termes  normalisables  (resp.  fortement  normalisables)  correspondant  e 
la  discipline  des  types  conjonctifs  avec  (resp.  sans)  type  universel  est 
demontree  par  la  construction  d'un  modeie  syntaxique.  Diff6rentes 
disciplines  de  typage  polymorphe  sont  etudiees. 


Ces  notes  sont  encore  &  l'6tat  d'6bauche.  De  nombreuses  demonstrations 
ne  sont  qu'esquissees.  II  manque  au  chapitre  des  types  les  sections 
correspondant  aux  types  dependants  et  aux  disciplines  non  predicatives. 
Une  version  plus  complete  de  ces  notes  traitera  6galement  de  la 
recursivite,  exprim6e  dans  le  1-calcul,  de  la  theorie  des  combinateurs,  et 
enfin  des  mod&es  du  L-calcul. 
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I .  Lambda-calcul  pur 


1.  La  lambda  notation 

II  n'y  a  pas  rfe  notation  gEnEralement  admise  en  mathEmatiques  pour 
dEcrire  une  expression  fonctiohnelle,  c'est  it  dire  dEnotant  une  fonction.  A 
vrai  dire,  la  notion  mEme  de  fonction  est  relativement  rEcente  en 
mathEmatiques.  Jusqu'au  XIXEme  siEcle,  les  fonctions  n'Etaient  pas  des 
objets  mathEmatiques  A  part  entiEre,  mats  juste  une  maniEre  de  parler 
pour  designer  des  procEdEs  permettant  de  calculer  des  valeurs 
mathEmatiques  A  partir  d'autres.  Par  exemple,  A  partir  des  fonctions  sin  et 
cos,  on  peut  fabriquer  la  fonction  qui  aux  rEels  x  et  y,  fait  correspondre  le 
rEel  sin(x)+cos(y).  On  dEsigne  gEnEralement  cette  fonction  par  la  notation  : 

x,y  I -» sin(x)+cos(y)  (1) 

qui  ne  peut  pas  Etre  employee  comme  expression,  k  I'intErieur  d'une 
autre  expression  par  exemple. 

Les  fonctions  sont  devenues  des  objets  mathEmatiques  k  part  entiEre 
aprEs  I'introduction  par  Cantor  de  la  thEorie  des  ensembles.  Les  fonctions 
de  la  thEorie  des  ensembles  sont  confondues  avec  leur  graohe.  c'est  A  dire 
I'ensemble  des  paires  argument-rEsultat.  II  faut  bien  remarquer  que  cette 
nouvelle  definition  de  fonction.  axtensionnelle.  est  fondamentalement 
diffErente  de  la  notion  intentionnalle  d'algorithme.  ou  regie  de  calcul  de  la 
valeur  du  resultat  k  partir  de  la  valeur  de  I'argument. 

Nous  allons  dans  ces  notes  nous  attacher  k  la  notion  d'algorithme.  Une 
fonction  calculable  sera  une  fonction  qui  peut  etre  dkfinie  par  un 
algorithme.  La  notion  d'algorithme  va  s'appuyer  sur  un  lanoage  permettant 
d'ecrire  des  expressions  dEnotant  des  valeurs  ou  des  fonctions,  et  sur  des 
rAoles  de  calcul  sp6cifiant  comment  une  expression  peut  expliciter  une 
valeur,  par  Evaluation  progressive.  Plusieurs  difficult^  surgissent. 

a)  Faut  il  que  la  notation  distingue  une  valeur  concrete,  par  exemple  un 
entier,  d'une  valeur  fonctionnelle?  On  distingue  ici  les  langages  typEs  (par 
exemple,  CAML),  et  les  langages  non  typEs  (par  exemple,  le  X-calcul  que 
nous  allons  Etudier).  Certains  langages  sont  intermEdiaires,  comme  LISP, 
qui  distingue  les  (C-VAL)  des  fonctions  (F-VAL). 

b)  Le  langage  et  ses  rEgles  de  calcul  garantissent-ils  que  ('Evaluation 
d'une  expression  termine  toujours?  Nous  verrons  qu'une  telle  contrainte 
est  nEcessairement  restrictive,  et  que  les  algorithmes  ne  dEfinissent  done 
en  gEnEral  que  des  fonctions  oartielles.  non  dEfinies  sur  certaines  valeurs. 


•i 
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c)  Comment  peut-on  designer  de  maniire  non-ambigue  I'argument  d'un 
algorithms?  Dans  la  notation  ci-dessus,  les  meta-variables  x  et  y  sont 
utilises  pour  cet  usage.  Cette  utilisation  traditionnelle  de  noms  pour  les 
variables  liies,  ou  muettes,  qui  dinotent  I'argument  d'une  fonction,  est 
pratique  pour  le  mathimaticien,  qui  joue  sur  I'ambiguiti  entre  i'algorithme 
et  la  valeur  risultat  sin(x)+cos(y)  pour  des  valeurs  donnies  des  arguments 
x  et  y.  Mais  les  difficultis  surgissent  dis  qu'on  essaye  d'itendre  cette 
confusion  &  des  fonctionnelles,  c'est  &  dire  des  expressions  qui  prennent 
en  argument  ou  retournent  en  risultat  des  fonctions.  Les  notations 

traditionnelles  Jf(x)dx,  df/dx,  Xj.,  I0E(i),  Vx3y  P(x,y)  montrent  qu'une 

notation  fonctionnelle  uniforme  est  desirable. 

Nous  allons  maintenant  presenter  quelques  notations  concretes  pour 
('expression  fonctionnelle  (1),  dans  diffirents  langages. 

Xx.  Xy.  ((+  (sin  x))  (cos  y))  X-calcul  de  Church 

function  x  -» function  y  -»  sin(x)+cos(y)  langage  CAML 

[x][y]  «y>cosx<x>sin>+  AUTOMATH 

[x,y]  (+  (sin  x)  (cos  y)) 

Cette  derniire  notation  sera  utilisie  dans  ces  notes  de  cours. 

Toutes  les  notations  concrites  ci-dessus  souffrent  du  difaut  d'avoir  i 
utiliser  un  nom,  c'est  &  dire  une  chafne  de  caractires  spicifique,  pour 
noter  les  variables  muettes.  Elies  ne  rendent  done  pas  compte  du  concept 
abstrait  d'algorithme,  pour  lequel  le  nom  de  ces  variables  n'est  pas 
pertinent.  Par  example.  [x,y]  (+  (sin  x)  (cos  y))  et  [u.v]  (+  (sin  u)  (cos  v)) 
dinotent  le  mime  algorithms.  Pourtant,  il  n'est  pas  aisi  de  spicifier 
rigoureusement,  mais  sans  lourdeur,  la  congruence  de  renommage.  Par 
example,  il  convient  de  ne  pas  confondre  ci-dessus  les  noms  x  et  y.  La 
congruence  de  renommage  est  appelie  traditionnellement  a-conversion 
dans  la  notation  du  X-calcul  de  Church.  Nous  iviterons  ici  ces  difficultis 
en  considirant  un  langage  plus  abstrait  qui  contoume  cette  difficulty 


2.  Notation  abatralte,  substitution 

2.1.  Quelques  propositions  de  notation  abatralte 

Un  certain  nombre  de  propositions  de  reprisentations  des  X-termes 
modulo  renommage  des  variables  liies  ont  iti  faites.  Nous  en  discutons 
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certaines  sur  I'exemple: 

[x](x  [y](xy». 

Remarquons  qua  cette  syntaxe  utilise  la  notation  (f  x)  pour  indiquer 
I'aoplication  de  la  fonction  f  k  rargument  x. 

Une  premiere  proposition  de  syntaxe  abstraite,  n’utilisant  pas  de  noms 
de  variables,  a  6t6  6voqu6e  (mais  non  vraimerft  utilises!)  par  Bourbaki: 

A(d  i  {dd  )) 

Une  autre  proposition,  Ii6e  &  une  implementation  sur  ordinateur  du 
X-calcul,  a  6t6  faite  par  C.  Wadsworth.  Elle  utilise  un  formalisms  de 
graphes: 


Les  deux  propositions  ci-dessus  sont  en  fait  tr6s  proches.  Celle  de 
Wadsworth  presente  I'avantage  d'autoriser  d'exprimer  certains  partages  de 
sous-expressions.  Elle  ont  toutes  deux  un  detaut  essentiel,  celui  d'etre 
basees  sur  un  langage  bi-dimensionnel.  De  plus,  elles  ne  permettent  pas  de 
parler  facilement  de  sous-expressions,  dans  lesquelies  certaines 
occurrences  de  variables  peuvent  etre  libres.  Enfin,  la  representation  de 
Wadsworth  n'exprime  pas  la  bonne  notion  de  partage. 

La  bonne  notation  abstraite  pour  les  X-termes  est  due  k  N.  de  Bruijn.  Elle 
utilise  I'idee  d'indice  de  liaison:  chaque  occurrence  de  variable  liee  est 
representee  par  un  entier,  qui  est  la  profondeur  relative  du  iieur  de  la 
variable.  Sur  notre  example, -en  obtient: 

no  n(2i» 

lei  les  crochets  de  liaison  Q  doivent  etre  lus  comma  un  symbole  unaire, 
I'abstraction.  Les  expressions  parenthes4es  represented  I'application  (ici 
operateur  binaire).  Les  entiers  sont  les  indices  representant  les 
occurrences  de  variables. 
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Remarquons  tout  de  suite  que  cette  representation  abstraite  n'est  pas 
une  notation  lisible,  au  contraire  de  la  representation  concrete:  les  deux 
occurrences  de  la  variable  x  sont  representees  par  deux  indices  differents, 
alors  qu’inversement  les  deux  indices  *1"  represented  des  occurrences  de 
variables  distinctes  x  et  y. 

2.2.  Definitions  precises  des  structures 

Nous  avons  done  besoin  des  deux  langages,  correspondent  aux  deux 
structures  definies  ci-dessous  en  CAML: 

type  lambda  =  (*  syntaxe  abstraite  *) 

Ref  of  num  (*  variable  *) 

I  Abs  of  lambda  (*  abstraction  *) 

I  App  of  lambda  *  lambda;;  (*  application  *) 

type  concrete  =  (*  syntaxe  concrete  *) 

Var  of  string  (*  x  •) 

I  Lambda  of  string  *  concrete  (*  [x]  E  *) 

I  Apply  of  concrete  *  concrete;;  (*  (El  E2)  *) 

let  closed  a  valid  0 

where  Tec  valid  n  a  function 
Ref(m)  -tnim 
I  Abs(e)  -♦  valid  (n+1)  e 
I  App(el,e2)  ->  valid  n  el  &  valid  n  e2;; 

On  ecrit  An  pour  I'ensemble  des  L-termes  M  valides  dans  un  contexts  de 
n  variables  libres,  e’est  &  dire  tels  que  valid  n  M  =  true  avec  la  definition 
ci-dessus.  Les  termes  ferm6s  (dans  Aq)  n’ont  pas  de  variables  libres. 

Voici  maintenant  I’algorithme  calculant  I'indice  correspondant  d  un  nom 
de  variable  dans  un  environnement  donnd,  represente  par  une  liste  de 
chaTnes  de  caracteres; 

let  index  name  =  search  1 

where  rec  search  n  *  function 
(]  -»  Erreur  ’variable  non  li<e" 

I  first;;rest  -»  if  first=name  then  n  else  search  (n+1)  rest;; 
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On  donne  maintenant  I'algorithme  traduisant  un  X-terme  concret  ferme 
en  la  structure  abstraite  correspondante  : 


(*  parser  :  concrete  — »  lambda  *) 
let  parser  =  parse_env  [] 

where  rec  parse_env  env  =  abstract 
where  rec  abstract  =  function 
Var(name)  -»  Ref(index  name  env). 

I  Lambda(name.c)  -»  Abs(parse_env  (name::env)  c) 

I  Apply(cl,c2)  -»  App(abstract  cl,  abstract  c2);; 

On  peut  maintenant  ddfinir  compldtement  ('interface  entre  syntaxe 
abstraite  et  syntaxe  concrete  par  une  grammaire  et  un  formateur: 


grammar  lambda  = 
rule  entry  concrete  =  parse 
lambda  e 

and  lambda  =  parse 

lambda  g;  lambda  d;  ")" 
I  IDENTx 

I  "  binder  b;  T:  lambda  e 
I  lambda  e;  ")" 

and  binder  -  parse 
IDENTx 

I  IDENT  x;  binder  b 


parser(e) 

Apply(g.d) 

Var(x) 

list_it  (curry  Lambda)  b  e 
e 

x 

x::b;; 


Nous  laissons  l’6criture  du  formateur  en  exercice. 


2.3  Principe  de  recurrence  contextuelle 

Les  definitions  recursives  sur  les  X-termes  suivent  toutes  le  memo 
schema  :  on  appelle  une  fonction  d'un  entier  n  avec  la  valeur  0  sur  une 
expression  fermee;  la  fonction  s'appetle  r6cursivement  sur  les 
sous-expressions,  I'entier  n  6tant  incremente  e  cheque  abstraction. 

A  ce  style  de  definition  correspond  un  style  de  preuve  par  recurrence, 
qui  est  I'analogue  de  la  recurrence  structural^  traditionnelle  des 
structures  libres,  mais  tenant  compte  du  fait  que  l’op6rateur  d'abstraction 
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lie  une  nouvelle  variable. 


Principe  de  recurrence  contextuelie. 

Soit  Pn  une  propriety  des  lambda-termes,  indic6e  par  un  entier  naturel 
n,  et  v6rifiant  les  conditions  de  fermeture  suivantes. 

(a)  Pn(M)  &  Pn(N)  =>  Pn(App(M,N)) 

(b)  Pb+1(M)  =*  Pa(Abs(M)) 

(c)  0<m£n  =»  Pn(Ref(m)) 

Alors  Pn(M)  est  vrai  pour  tout  M  dans  A,,,  avec  n  quelconque. 


2.4.  La  substitution 

Voici  I'algorithme  qui  recalcule  les  indices  des  variables  fibres  d'un 
terme  a  travers  k  niveaux  d'abstraction  : 

let  lift  k  =  lift_rec  1 

where  rec  lift_rec  n  =  function 

Ref(m)  -»  if  m<n  then  Ref(m)  (*  variable  H6e  *) 

else  Ref(m+k)  (*  variable  libre  *) 

I  Abs(e)  -*  Abs(lift_rec  (n+1)  e) 

1  App(g.d)  -*  App(lift_rec  n  g,  lift_rec  n  d);; 

Voici  maintenant  I'algorithme  de  substitution.  Si  M  est  un  lambda 
construit  dans  un  environnement  x::ret  N  est  un  lambda  construit  dans 
I'environnement  r,  alors  M{x«-N}  (notation  concrete)  ou  M{N)  (notation 
abstraite)  est  d6fini  comme  le  terme  subst  N  M,  avec  subst  ddfini  comme 
suit.  On  v6rifie  que  ce  terme  est  bien  construit  dans  I'environnement  r. 

let  subst  lam  =  subst_rec  1 
where  rec  subst_rec  n  =  function 

Ref(m)  -»  if  m=n  then  (lift  (n-1)  lam) 
if  m<n  then  Ref(m) 
else  Ref(m-1) 

I  Abs(e)  -*  Abs(subst_rec  (n+1)  e) 

1  App(g.d)  -♦  App(subst_rec  n  g,  subst_rec  n  d);; 
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Example. 

[y](y  x)(x  «-  [z]z]  =  subst  (Abs(Ref(l)))  (Abs(App(Ref(l),Ref(2))) 
=  Abs(App(Ref(  1  ),Abs(Ref(  1 ))))  =  [y](y  lz)z). 


3.  Reduction,  conversion 

On  d6finit  maintenant  la  relation  de  reduction  O  entre  X-termes,  comme 
suit. 

([x]M  N)  O  M{x«-N}  (P) 

On  dit  que  le  terms  ([x]M  N)  est  un  radical,  qui  se  r6duit  en  M{x  «-  N}. 
On  etend  la  relation  O  par  congruence  par  rapport  4  la  structure  de 
Jl-terme  : 

MOM'  =»  []M  O  (]M'  (5) 

MOM'  =»  (M  N)=>  (M’  N) 

MOM'  =>  (N  M)0  (N  M') 

Historiquement,  la  fermeture  r6flexive-transitive  O*  de  la  relation  O 
s’appelle  la  B-r6duction. 

La  p-r§duction  est  la  r6ole  de  calcul  du  tangage  algorithmique  lambda. 
Elle  est  non-d6terministe,  dans  la  mesure  ou  un  terme  poss6dant  plusieurs 
occurrences  de  radicaux  peut  se  calculer  de  manidres  diffdrentes. 
Pourtant,  le  langage  est  intrinsdquement  ddterministe,  dans  la  mesure  Ou 
le  rdsultat  final  d'un  calcul  est  unique,  comme  le  montrera  le  th6or6me  du 
losange  ci-dessous.  Donnons  tout  d'abord  un  example  de  calcul. 

Exemple. 

On  calcule,  en  soulignant  les  radicaux  4  cheque  6tape  : 

M  =  (0x1  lyUtUx-ja.  Mitt Jii)  Mlwjv). 

O  ffvl  fful  fu  u)  (v  ful  (u  M  fwl  vl 

O  ([u]  (u  u)  ffvl  fwl  v  ful  fu  u))l 
o  ([ul  Iii— ul  ialMiu.  a)) 

O  ffwl  ful  fu  uKfwlfulfu  ul) 

O  [u]  (u  u)  =  A. 


A  est  une  forme  irrdductible,  car  ce  terme  ne  poss4de  pas  de  radical.  On 
dit  qu'un  tel  terme  est  en  forme  normals.  On  dit  aussi  que  A  est  la  forme 
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normals  da  M.  Cette  terminologie  est  justifi6e  par  la  prochalne  section. 
Mais  remarquons  tout  d'abord  qu'un  terme  peut  ne  pas  poss6der  de  forme 
normale,  car  ses  calculs  peuvent  ne  pas  terminer;  ainsi  : 

ti  =  (A  A)  O  (A  A)  O  (A  A)  t>  ....  boucle! 


Remarque.  Dans  la  terminologie  anglo-saxonne,  on  utilise  redex, 
abrgviation  de  “reducible  expression**,  pour  radical.  Le  th6ordme  du 
losange  que  nous  allons  maintenant  6tudier  s'appelle  g6n6ralement 
“parallel  moves  lemma". 


Quelques  lambdas  usuels. 


I 

K 

S 

A 

B 

C 

P 

T 

F 

0 

1 

0. 

Y 

e 

A 

n 


[xjx 
[x,  y]x 

[x,  y,  z](x  z  (y  z» 

[x.  y](x  y) 

[x,y,z](x  (y  z)) 

[x.  y,  z](x  z  y) 

[x,  y,  z](z  x  y) 

[x.  y]x 
[x.  y]y 
If,  x]x 
[f.  x](f  x) 

[f,  x](f  (f  ...  (f  x)» 
ffl«x](f  x  x)  [x](f  x  x)) 

(lx,  y](y  (X  X  y»  lx,  y](y  (x  x  y))) 
[x](x  x) 

([x](x  x)  [x](x  x» 


(  =  K) 


(  =  F) 

(  =  A) 

(  n  fois  0 


(=  (A  A)) 
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4.  Le  thgorgme  du  losange 

4.1  Enoncg  du  thgorgme  et  corollaires 

Thgorgme  du  losange. 

Pour  tous  termes  M,  M,  et  M2  tels  que  M  0*M,  et  M  =>*  M2.  it  existe 
un  terme  N  tel  que  Mj  N  et  M2  O*  N. 

Autrement  dit,  la  relation-  O  est  confluente.  ou  de  manigre  gquivalente 
la  p-rgduction  O*  est  fortement .  confluente.  avec  las  dgfinitions  de  ces 
notions  exprimges  par  les  diagrammes  ci-dessous  : 


confluence  confluence  forte 

Dans  de  tels  diagrammes,  la  partie  supgrieure,  en  traits  plains,  est 
universellement  quantifies,  alors  que  la  partie  infgrieure,  en  pointings, 
est  existentiellement  quantifige. 

Definition.  On  appelle  B-conversion  I'gquivalence  *  engendrge  par  O . 

Enongons  maintenant  quelques  consequences  importantes  du  thgorgme. 

\ 

Corollaire  1  :  Proprigtg  de  Church  et  Rosser.  Pour  tous  termes  M  et  M' 
convertibles  :  M  s  M',  il  existe  un  terme  commun  N  rgsultat  de  calculs 
effectugs  k  partir  de  M  et  M'  respectivement  :  M  O  *  N  et  M'  *  N. 

Corollaire  2  :  Unicite  des  formes  normales.  La  forme  normals  de  tout 
terme,  si  elle  existe,  est  unique. 
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On  appelle  normalisable  un  terms  possddant  une  forme  normals,  et 
fortement  normalisable  un  terme  tel  que  tout  calcul  issu  de  ce  terme  se 
termine.  Par  exemple,  le  terme  ([w][x]x  Cl)  est  normalisable,  de  forme 
normals  I  =  [x]x,  mais  non  fortement  normalisable,  &  cause  de  son 
sous-terme  non  normalisable  Cl. 

4.2  Occurrences  et  sous-termes 

Avant  de  faire  la  preuve  du  thdordme  du  losange,  il  convient  de 
ddvelopper  les  notions  fondamentales  permettant  d'exprimer  les 
transformations  progressives  d'une  expression  par  calcul. 

La  premidre  notion  est  cede  d'occurrence.  Jusqu'ici  nous  avons  parte  de 
manidre  informelle  d'occurrences  de  variables.  De  mani&re  plus 
formalisde,  les  occurrences  vont  designer  I'emplacement  des 
sous-expressions  d'une  expression.  Une  6tape  de  calcul  sera  alors 
d6termin6e  par  ('occurrence  i  laquelle  se  trouve  le  radical  en  question. 

Definition.  Soit  M  une  X-expression.  On  d6finit  I'ensemble  de  ses 
occurrences  dom(M)  par  recurrence  comme  suit. 

type  sibling  *  A  I  B  I  C 

and  occurrence  =  sibling  list 

and  domaine  ==  occurrence  list;; 

let  top  =  l]  (*  1' occurrence  principale  de  tout  terme  *) 

and  sons  s  =  map  (cons  s);;  (*  prlfixage  par  le  sibling  s  *) 

let  rec  dom  =  function  (*  dom  :  lambda  -»  domaine  *) 

Ref(_)  -*  [top] 

I  App(g.d)  -*  top ::  ((sons  A  (dom  g))  <§>  (sons  B  (dom  d))) 

I  Abs(e)  -»  top  (sons  C  (dom  e));; 


Example. 

dom([x](x  [yRx  y)»  =  [[];  {CJ;  [C;A];  [C;BJ;  [C;B;q;  [C;B;C^J;  [C;B;C;B]]. 

Deux  occurrences  u  et  v  sont  dites  coherantes  si  elles  peuvent 
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appartenir  k  un  m§me  terme.  Dans  le  cas  contraire  on  6crit  u#v. 

Les  occurrences  sont  ordonn6es  naturellement  par  I'ordre  pr6fixe.  On  dit 
que  u  est  au  dessus  dev,  et  on  6crit  u<v  si  u.  est  un  pr6fixe  (sous-liste 
initiale)  de  v.  On  dit  que  u  et  v  sont  disiointes.  et  on  6crit  ulv,  si  u  et  v 
sont  des  occurrences  coh6rentes  non  comparables.  L'algorithme  suivant 
donne  tous  les  cas  de  comparaison  : 

let  rec  compare  =  function 

(□.ID  -» 

i  ([),_)  -►  v  - 

i  (_,U)  -»  v 

I  (C::u,C::v)  -»  compare(u.v) 

I  (C::_0  -» 

I  -4  "#" 

I  (A::u,A::v)  -»  compare(u.v) 

I  (B::u,B“v)  -»  compare(u.v) 


Remarque.  Un  ensemble  E  fini  non  vide  d'occurrences  deux  k  deux 
coh6rentes  peut  §tre  ordonn6  en  un  domaine  d'occurrences  de  terme  si  et 
seulement  s'il  vdrifie  les  deux  conditions  suivantes  : 

a)  u  @  [s]  €  E  =>  u  €  E  (ferm6  vers  le  haut) 

b)  u  @  [B]  e  E  o  u  @  [A]  e  E.  (complet  pour  App) 

On  d6finit  maintenant  le  sous-terme  de  M  k  I'occurrence  ucdom(M). 
not6  M/u,  et  calculi  comma  sub(M,u),  avec  l'algorithme  sub  ci-dessous  : 

let  rec  sub  =  function 

(e .  [])  1  -»  e 

1  (App(g,J ,  A::u)  ->  subfgiu) 

1  (AppC.d) ,  B::u)  ->  subfd.u) 

I  (Abs(e) ,  C::u)  -»  sub(e,u) 

I  _  ->  Erreur  "Occurrence  hors  du  domaine";; 

Ramarque.  Une  occurrence  est  une  representation  d'un  terme 
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“filiforme"  dGnotant  un  chemin  (facets  k  un  sous-terme. 

On  appelle  radical  de  e  touts  occurrence  (fun  sous  terms  de  e  de  la  forme 
App(Abs(_),_).  C'est  un  endroit  immtdiatement  rtductible  par  substitution. 
Formellement,  on  dtfinit  : 
let  radical  u  e  =  match  sub<e,u)  with 
App(Abs(_),_)  -»  true 
I  _  ->  false;; 


Autrement  dit  :  radical  u  e  <=>  u  @  [A;C]  e  dom(e). 

Notation.  On  note  R(M)  I'ensemble  des  occurrences  de  radicaux  dans  le 
terms  M :  R(M)  =  (ue  dom(M)  I  radical  u  M). 


let  rec  R  =  function 
Ref(_) 

I  Abs(e) 

I  App(Abs(e),d) 
I  App(g.d) 


-»  D 

-»  sons  C  (R  e) 

-*  top  (sons  A  (sons  C  (R  e)))  @  (sons  B  (R  d)) 
-»  (sons  A(Rg»#  (sons  B  (R  d));; 


Le  remplacement  du  sous-terme  de  M  k  I'occurrence  u  par  le  terms  N, 
que  nous  noterons  M[u«-N],  se  calcule  par  remplace  N  (M,u),  avec  remplace 
dtfini  6  dessous  : 


let  remplace  N  =  remp  0 
where  rec  remp  n  =  function 
(_  .  ID  -»  lift  n  N 

I  (App(g,d)  ,  A::u)  -♦  App(remp  n  (g,u),  d) 

•  (App(g,d)  .  B::u)  -*  App(g,  remp  n  (d,u)) 

I  (Abs(e)  ,  C::u)  -»  Abs(remp  (n+1)  (e,u)) 

I  _  — »  Erreur  "Occurrence  hors  du  domaine";; 

On  peut  maintenant  calculer  formellement  le  terme  N  obtenu  par  une 
ttape  de  reduction  MON  rtduisant  le  radical  u  de  M,  comma  suit  : 

let  rdduit  M  u  =  match  sub(M,u)  with 
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App(Abs(body),arg)  ->  remplace  (subst  arg  body)  (M,u) 

I  _  -»  Erreur  "Reduction  d'un  non-radical";; 

4.3  Rtaidus 

On  dtfinit  maintenant  uner  notion  fondamentale  :  celle  de  rtsidu. 
Intuitivement,  les  sous-termes  d'un  terme  progressivement  calculi 
proviennent  de  morceaux  recombints  du  terme  d'origine.  On  trace  cet 
heritage  &  I'aide  de  la  notion  de  rtsidu  cf occurrence. 

Tout  d'abord,  considtrons  un  radical  R  =  ([x]M  N).  L'ttape  de  calcul 
rtduisant  R  calcule  ;  ROM1,  avec  M'  =  M{x  «-  N}.  Les  occurrences  de  M' 
proviennent  de  deux  sources  :  les  occurrences  de  N  qui  remplacent 
d'dventuelles  occurrences  de  x  dans  M,  et  les  autres  occurrences  de  M. 
Calculons  tout  d'abord  I'ensemble  X  des  occurrences  de  x  dans  M  &  I'aide  de 
X  =  locaux  M.  avec  locaux  dtfini  rtcursivement  par  ; 

let  locaux  =  loc  1 

where  rec  loc  n  =  function 

Ref(m)  -»  if  m=n  then  [top]  else  [] 

I  App(e.e')  -»  (map  (cons  A)  (loc  n  e»  @  (map  (cons  B)  (loc  n  e')) 

I  Abs(e)  -♦  map  (cons  C)  (loc  (n+1)  e);; 

Maintenant  soit  T  un  terme  posstdant  &  ('occurrence  u  le  radical  T/u  =  R. 
On  a  T  T,  avec  T  =  T[u«-M'].  A  chaque  occurrence  v  de  T  on  fait 
correspondre  un  ensemble  d'occurrences  V  de  T',  dites  rtsidus  de  v  selon 
u.  comme  suit.  Tout  d'abord,  si  v<u  ou  via,  V*{v}.  Ensuite,  les  occurrences 
du  radical  proprement  dit,  u  et  u@[A],  n’ont  pas  de  rtsidu.  line  occurrence 
u@(A::C::w)  dans  M  a  pour  rtsidu  ('occurrence  u@w,  sauf  pour  les 
occurrences  de  la  variable  substitute  x,  qui  n'ont  pas  de  rtsidu.  Enfin,  une 
occurrence  a(^(B::w)  dans  N  a  pour  rtsidus  tous  les  u@x@w,  pour  xcX 
quelconque. 

Formellement,  les  rtsidus  de  v  selon  a  dans  le  terme  M  se  calculent  par 
rtsidus  M  u  v,  avec  I'algorithme  rtsidus  ci  dessous  : 

let  idsidus  M  u  =  let  X  =  locaux(sub(M,u@(A;C]))  in  function  v  -+  ies(u,v) 
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where  rec  res  = 
«].[]) 

I  (H.[A]) 

I  «U::C::w) 

I  «]3::w) 

I  (U.J 
I  <_.[]) 


function 
-»  0 
-»  □ 

->  if  mem  w  X  then  [)  else  [u@w] 

-*  let  wrap  x  =  u@x@w  in  map  wrap  X 
-»  Erreur  "Occurrence  hors  domaine" 

-*  Iv] 

-»  if  s=s'  then  res(w,w') 

if  s=C  or  s'=C  then  Erreur  "Occurrence  hors  domaine" 
else  (*  (s=A  &  s'=B)  or  (s=E  &  s'=A)  *)  [vj;; 


Toute  occurrence  dans  le  terme  rftduit  est  le  rftsidu  d'une  occurrence 
unique.  On  vftrifie  que  les  rftsidus  d'une  occurrence  de  radical  sont  des 
occurrences  de  radicaux,  qui  intuitivement  partagent  le  mftme  "grain  de 
calcul".  On  appelle  radical  rftsidu  une  occurrence  de  radical  r6sidu  d'une 
occurrence  de  radical.  Par  contre,  certains  radicaux  du  terme  rftduit 
proviennent  d'un  nouvel  assemblage  App(Abs(e),e').  On  dit  que  ces  radicaux 
sont  crftfts  par  le  calcul. 


Remarque.  Le  radical  R  =  ([x]M  N)  peut  par  sa  reduction  crfter  un  radical 
de  3  manures  diffftrentes  : 

•  vers  le  bas  :  ft  toutes  les  occurrences  dans  M  de  la  forme  (x  P),  si  N 
est  une  abstraction. 

•  vers  le  haut  :  si  R  apparatt  en  partie  gauche  d'une  application  dans  le 
terme  ft  rftduire  :  (R  P),  avec  : 

•  so  it  M  une  abstraction 

•  sort  M*x,  et  N  une  abstraction. 

Remarquez  que  les  deux  premiers  cas  peuvent  se  cumuler. 


Les  rftsidus  d'un  ensemble  d*occurrences  V  sont  I'union  des  rftsidus  de 
chacune  des  occurrences  de  V.  On  les  calcule  par  (Rdsidus  M  u  V),  avec  : 

let  Rftsidus  Mu*  set_extensiou  (rftsidus  M  a);; 

(*  where  set_extension  f  *  it_li$t  (fun  set  x  -»  union  set  (f  x»  *) 

Finalement,  les  rftsidus  s'itftrent  le  long  des  sftquences  de  rftduction. 
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Ainsi,  si  on  definit  une  derivation  M  *M,  O  M2 *>  —  M„  *>  N  de  longueur 
n  par  une  suite  d'occurrences  de  radicaux  :  D  *  [u, ; ... ;  uj,  alors  on  calcule 
les  residus  de  I'ensemble  d'occurrences  y.de  M  comme  ('ensemble 
d'occurrences  de  N  : 

W  =  Rlsidus  Uj,  (Rdsidus  M,,.,  u„.i  ...  (Rdsidus  M,  u,  V)  ...  )). 

Void  I'algorithme  trace  qui,  6tant  donne  M,  V  et  D,  calcule  N  et  W  : 

let  rec  trace  (M,V)  =  function 
[]  -»  (M,V) 

I  u::D  -♦  let  N  =  rdduit  M  u  and  W  =  R6sidus  M  u  V  in  trace  (N,W)  D;; 

Example.  Void  un  exemple  de  derivation  D  =  [[] ;  []]  k  partir  d'un  terme  L: 

L  =  ([u](u  u)  lv]([x)v  y» 

0 

O  (tv]«x]y  y)  [v]([x)y  y))  =R 
1  2 

O  ([x](v)((x}v  y)  4y) 


Figure  1 

Apres  la  premiere  etape  le  radical  marque  0  a  pour  residus  les  deux 
radicaux  marques  1  et  2.  Apres  la  2*me  etape  le  radical  1  (resp.  2)  a  pour 
unique  residu  le  radical  3  (resp.  4).  Les  residue  de  0  par  D  sont  done  3  et  4. 
Formellement,  on  calcule  :  trace  (L,[[B;  C]])  D  *  (L',[[] ;  [A;  C;  C]J),  avec  L'= 
((x][v]((x]v  y)  $).  On  remarque  que  le  radical  R  ci-dessus  n'est  pas  residu 
d'un  radical  de  L,  mais  est  cree  par  la  derivation  D. 

Remarque.  Les  residus  donnent  une  idee  de  “partage"  :  les  sous-termes 
residus  d'un  sous-terme  donne  peuvent  etre  “partages"  avec  ce 
8ous-terme,  plutfit  que  copies.  Toutefois,  ce  partage  ne  rend  pas  compte 
d'un  partage  plus  complexe  de  “contextes”,  ou  portions  de  termes  non 
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nAcessairement  sous-termes.  De  plus,  la  representation  de  de  Bruijn  ne 
rend  pas  compte  de  ce  partage,  dans  la  mesure  oil  les  variables  globales 
des  rAsidus  doivent  §tre  Aventuellement  recalAes  (par  I'opArateur  lift). 


4.4  Reductions  parallels. 

On  cherche  4  prouver  le  lemme  du  losange,  c'est  4  dire  4  montrer  que  la 
relation  c>  est  confluente.  Une  idee  naive  consiste  k  vouloir  prouver  que  e> 
est  fortement  confluente.  Ceci  6choue,  4  cause  du  probl4me  de  duplication  : 

Avec  M  =  (A  a  I))  .  on  a  M  <0  N1  =  (A  I)  et  M  c>  N2  *  ((I  I)  a  I)),  mais 
la  seule  manifere  de  termer  le  diagramme  est  N1  <0  (I  I),  alors  qua  N2  ne 
conduit  4  (I  I)  qu'apr4s  2  etapes  de  reduction. 

Par  contre,  il  est  vrai  que  la  relation  <0  est  localement  confluente.  Cette 
propriete  est  definie  graphiquement  par  : 


confluence  locale 

Toutefois,  ceci  ne  suffit  pas  pour  prouver  directement  la  confluence,  car 
en  general  les  calculs  peuvent  ne  pas  terminer,  et  on  ne  peut  done  pas 
employer  de  recurrence  permettant  d'utiliser  I’id6e  d'un  progr4s  effectuA 
par  la  fermeture  du  diagramme  de  confluence  locale.  Remarquez  par 
example  que  le  graphe  ci-dessous  (paradoxe  d’Escher-Newman)  determine 
une  relation  acyclique  localement  confluente,  mais  non  confluente  : 
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Figure  2 


II  y  a  en  gros  deux  manures  pour  sortir  de  cette  difficulty.  La  premiere 
consists  k  pers6v6rer  dans  I'id6e  ci-dessus,  en  remarquant  que  la  partie 
inf6rieure  du  diagramme  de  confluence  locale  n’est  pas  arbitrage,  mais 
consists  k  r6duire  des  r6sidus  des  radicaux  r6duits  dans  sa  partie 
sup6rieure.  Le  progrfts  peut  alors  s'exprimer  sous  la  forme  du  theorems  de 
finitude  des  ddveloppements  que  nous  verrons  plus  loin.  La  deuxidme 
mani&re,  due  &  Tait,  consiste  &  prouver  la  confluence  forte  pour  une 
relation  •*  intermediate  entre  e»  et  *>  *.  Nous  aliens  maintenant 
poursuivre  cette  idee. 

Definition. 

La  reduction  parallels  ■*  est  difinie  comme  la  plus  petite  relation  entre 
X.-termes  v6rifiant  : 

=*  ((x]M  N)  »*  M'{x«-N’} 

M  »»  M  =»"  []M  •*  [JWT 

=>  (M  N)  •*  (M1  N1) 


Remarque.  La  relation  •*  correspond  &  une  idee  de  reduction  en 
paralieie  de  radicaux  dont  les  occurrences  peuvent  ne  pas  6tre  disjointes. 
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En  effet,  la  notion  de  reduction  on  parallels  d'occurrences  deux  4  deux 
disjointes  ne  suffirait  pas,  car  il  n'est  pas  vrai  que  les  rdsidus  de  radicaux 
disjoints  sont  des  radicaux  disjoints.  La  figure  1  ci-dessus  en  donne  un 
contre-exemple. 

II  est  clair  que  e>  c»»  et  »♦  c  et  done  que  •»  *  =  e>  *.  La  premiere 
assertion  est  6vidente.  La  deuxidme  s'obtient  en  constatant  que  la 
reduction  parall&le  tfun  ensemble  de  radicaux  peut  6tre  s6quentialis6e  en 
une  sequence  de  reductions  simples,  pourvu  qu'on  effectue  les  reductions 
de  I'interieur  vers  I'exterieur.  En  effet,  si  u  et  v  sont  des  occurrences  de 
M,  avec  v<u  ou  vlu,  on  a  :  rlsidus  M  u  v  =  [v]. 

Nous  allons  maintenant  generaliser  la  notion  d'occurrence  £  celle 
d’ensemble  d'occurrences.  Toutefois,  nous  ne  representerons  pas  un 
ensemble  d'occurrences  par  un  domaine  (liste  d'occurrences)  comme 
precedemment  d6fini,  car  cette  representation  n'a  pas  la  bonne  structure 
pour  partager  les  prefixes  communs.  On  choisit  plutdt  de  generaliser  la 
notion  d'occurrence  vue  comme  “terme  filiforme"  en  un  terme  dont 
certains  des  symboles  sont  marques.  Comme  nous  nous  interesserons  &  ces 
ensembles  d'occurrences  essentiellement  pour  marquer  certains  radicaux, 
on  ne  marque  que  les  operateurs  duplication. 


4.5  Tarmes  marques 

Voici  tout  d'abord  la  structure  de  X.-terme  avec  applications  marquees, 
type  marque  = 

MRef  of  num  (*  variable  *) 

I  MAbs  of  marque  (*  abstraction  *) 

I  MApp  of  bool  *  marque  *  marque;;  (*  application  marquee  *) 

Voici  comment  traduire  un  lambda  en  un  terme  marque,  etant  donne  un 
domaine  U  : 

let  mark  U  =  markrec  [] 
where  rec  markrec  u  *  function 
Ref(m)  -»  MRef(m) 
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I  Abs(e)  -»  MAbs(markrec  (C::u)  e) 

I  App(g,d)  ->  MApp(mem  u  U,  markrec  (A::u)  g,  markrec  (B::u)  d);; 

Inversement,  unmark  enlfive  les  marques  : 

let  tec  unmark  =  function 

MRef(m)  -»  Ref(m) 

I  MAbs(e)  -4  Abs(unmarke) 

I  MApp(_.g.d)  -4  App(unmark  g,  unmark  d);; 

On  suppose  partout  dans  la  suite  que  les  marques  ne  valent  true  que  sur 
les  occurrences  de  radicaux  :  M  =  mark  U  L  =»  U  c  R(L).  On  dit  qu'un 
terme  marqufi  M  est  un  marauaae  du  lambda  L  lorsque  L  =  unmark  M.  On 
dcrit  aussi  M  T  L.  On  dit  que  les  termes  marqufis  M  et  M'  sont  compatibles 
s'ils  sont  les  marquages  d'un  mfime  lambda,  et  on  ficrit  alors  M  T  M'.  On 
ficrit  de  mfime  U  T  L  lorsque  U  est  un  ensemble  d'occurrences  de  radicaux 
du  terme  L. 

Les  termes  marqufis  compatibles  ont  naturellement  une  structure 
d'algfibre  Boolfienne  hfiritfie  de  la  structure  de  I'ensemble  des  marques.  On 
ficrit  par  example  MjM'.MuM'  etc...  avec  la  signification  fividente.  Par 
example,  M  c  M'  ssi  M  =  mark  U  L,  M'  =  mark  U'  L,  et  U  c  U'.  Cette 
notation  s'fitend  aussi  aux  termes,  en  identifiant  L  fi  mark  [}  L. 

Donnons  maintenant  I'algorithme  dfirivfi  qui  rfiduit  un  terme  marqufi  M 
suivant  toutes  les  marques  d'un  terme  marqufi  compatible  N.  On  suppose 
ci-dessous  que  I'algorithme  subst  a  fitfi  fitendu  aux  termes  marqufis  en 
I'algorithme  msubst  de  la  manifire  naturefle,  c'est  fi  dire  prfiservant  la 
valeur  des  marques. 

\ 

Definition  :  Derivation, 

On  suppose  que  M  et  N  sont  des  termes  marqufis  compatibles.  Le  terme 
marqufi  P  =  d<riv6(M,N)  reprfisente  I'effet  de  rfiduire  M  en  tous  les 
radicaux  marqufis  par  N,  les  reductions  ayant  lieu  de  I'intfirieur  vers 
I'extfirieur. 
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let  rec  ddrivd  =  function 

(MRef(k)O  -» MRef(k) 

I  (MAbs(e),MAbs(m))-»  MAbs(ddrivd(e,m)) 

I  (MAppC.MAbsteJ.e'^MApp^ue.MAbs^.m')) 

-* let  body=ddrivd(e,m)  and  arg=ddriv6(e\m’) 
in  msubst  arg  body 
I  (MApp(b,e,e'),MApp(false,m,m')) 

-»  MApp(b,d6rivd(e,m),d6riv6(e',m')) 

I  _  -*  Erreur  "Termes  non  cohdrents";; 

Par  la  suite,  on  notera  M\N  pour  ddrivd(M,N)  : 

#infix 

let  x\y  =  ddrivd(x.y);; 

Proposition.  L  »*  L'  si  et  seulement  si  il  existe  un  marquage  N  de  L  tel 
que  L‘  =  unmark(M\N),  avec  M  =  mark  []  L. 

Nous  laissons  au  lecteur  la  preuve  de  la  proposition.  En  fait  I’algorithme 
ddrivd  nous  donne  beaucoup  plus  d'information  que  la  relation  •* ,  car  les 
marquages  permettent  de  tracer  les  rdsidus  de  radicaux.  Remarquons  par 
example  que  si  UtL,  alors  plus  gdndralement  on  a  L  »*  L'=unmark(P), 
pour  P=  MSN.  avec  M  =  mark  U  L.  Mais  de  plus  P  est  la  marque  des  rdsidus 
de  U  par  le  calcul  L  ■*  L’.  Autrement  dit,  I'algorithme  ddrivd  joue 
simultandment  les  rdles  des  algorithmes  rdduit  et  rdsidu  ci-dessus. 
Remarquez  par  exemple  que  si  V  t  L,  et  si  Dv  est  une  derivation 
reprdsentant  V  de  I'intdrieur  vers  I’extdrieur,  alors  pour  tout  UtL,  avec 
M  =  mark  U  L  et  N  =  mark  V  L,  on  a  MSN  =  mark  W  L\  avec  (L'.W)  =  trace 
(L.U)  Dv. 

On  6tend  la  notation  aux  X-termes  L  et  aux  ensembles  de  radicaux  U  c 
R(L)  en  tcrivant  LNU  pour  (mark  []  Ljs(mark  U  L).  De  mftme  on  6crit  M\U 
pour  M\(mark  U  (unmark  M)).  De  plus,  lorsque  le  terme  L  est 
soua-entendu  par  le  contexte,  on  bcrit  VMJ  pour  (mark  V  L)\(mark  U  L). 
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Remarque.  A  tout  terme  marqud  M  correspond  de  manure  unique  U  etL 
tels  que  M  =  mark  U  L.  Inversement,  4  L  correspond  ('ensemble  (fini)  de 
tous  ses  marquages.  Mais  k  U  correspond  un.  ensemble  infini  de  termes 
marques  M  compatibles. 
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4.6.  Demonstration  du  thdordme  du  iosange 

On  montre  d'abord  un  r6sultat  technique,  expliquant  que  la  substitution 
et  la  derivation  distribuent  : 

Lemme  de  substitution. 

Pour  tous  termes  marques  M.M’.N.N',  tels  que  M  T  M'  et  N  t  N\  on  a  : 

msubst  (ISN'T)  (MW)  =  (msubst  N  M)\(msubst  N"  M*). 

Demonstration.  Nous  laissons  au  lecteur  la  preuve  de  cette  propri6t6, 
par  recurrence  sur  M. 

Le  resultat  fondamental  s'exprime  maintenant  comme  suit. 

Lemme  de  monotonie  des  residua.  Soit  L  un  L-terme,  U  T  L,  W  T  L 
avec  UcW.  Pour  tout  M  T  L.  on  a  (M\U)VW\U)  =  M\W. 

Demonstration. 

Recurrence  sur  M. 

Le  seul  cas  int6ressant  est  lorsque  M  =  MApp(b,MAbs(Ml),  M2).  On 
pose  M'  =  MSU  et  W  =  WVU.  Avec  U1  =  {u  I  A::C::ueU),  U2  =  {u  I  B::ueU),  et 
notations  similaires  pour  W,onaMl\Ul  =  M'l,  M2\U2=  M'2,  W1MJ1  = 
W'l  et  W2\U2  =  W'2  tels  que.  par  recurrence  :  M'l\W‘l  =  M1\W1  et 
M'2\W’2  =  M2VW2.  Maintenant  il  y  a  2  cas: 

a)  top  e  U.  Alors  top  e  W  aussi,  et  done  M\W  =  msubst  (M2\W2) 
(Ml \ W 1 ) ,  et  M’  =  msubst  M'2  M'l.  De  la  mfime  mani&re  W  est  un 
marquage  de  L\U  de  la  forme  msubst  W’2  W'l  (avec  un  abus  de  notation 
evident)  et  done  par  le  lemme  de  substitution  M\W'  =  msubst  (M'2\W'2) 
(M'1\W1)  =  MsW. 

b)  top  e  U.  Alors  M'  =  MApp(b,  MAbs(M’l),  M'2).  Soit  W'O  =  (A::C::w  I 
we  W’l)  u  (B::w  I  we  W'2).  II  y  a  de  nouveau  2  cas  : 

bl)  top  e  W.  Alors  W'  =  W'O  u  (top),  et  de  nouveau  : 

M\W  =  msubst  (M2\W2)  (M1\W1)  =  msubst  (M’2\W’2)  (M'INW'l)  = 

M'XW'. 

b2)  top  e  W.  Alors  W'  =  W'O,  et  de  mfime  : 

M\W  =  MApp(b,  MAbs(MlNWl),  M2\W2)  =  MNW'. 
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Corollaire  :  Lemme  du  cube. 

Soit  L  un  X-terme,  U  et  V  des  sous-ensembles  de  R(L).  Pour  tout  M  T  L, 
on  a  (M\U)VV\U)  =  (MW)VUW). 

Demonstration.  On  applique  le  lemme  ci-dessus,  en  prenant  W  =  U  u  V 
-  VuU. 

Corollaire  :  Theorems  du  losange. 

Demonstration.  En  particulier  le  lemme  du  cube  donne  la  confluence 
forte  de  » ,  et  done  la  confluence  de  O . 

En  fait  on  obtient  beaucoup  plus.  En  particulier,  on  aurait  pu  faire 
converger  le  diagramme  de  forte  confluence  plus  simplement  sur  L\R(L). 
Mais  cette  preuve  n'aurait  pas  exprime  que  ce  diagramme  peut  Stre  ferm6 
d'une  maniPre  minimale.  Nous  allons  voir  maintenant  comment  le  lemme  du 
cube  peut  s'exprimer  comma  propri6te  cat6gorique. 


4.7.  Structure  des  derivations 

Soit  M  et  N  des  termes  marques.  On  definit  r6cursivement  la  notion  de 
derivation  oaralieie  D  de  M  vers  N,  not6e  D  :  M  ■**  N,  comme  une  paire 
(M,S),  ou  S  est  une  suite  d'ensembles  d'occurrences,  v6rifiant  : 

a)  (M,[]) :  M  »»*  M,  pour  tout  M. 

b)  si  (N,S)  :  N  »**  N’  et  U  T  M,  avec  M^J  =  N,  alors  (M,  U::S) :  M  »»*  N\ 

Si  (M.S)  est  une  derivation  paralldle  de  M  vers  N,  alors  N  est  unique.  On 
ecrit  N  =  MSS.  Si  M=mark  U  L  et  N=mark  V  L,  on  ecrit  de  m4me  V  =  USS. 

Remarque.  On  commet  ici  un  abus  de  notation  :  la  relation  •*  etait 
d6finie  plus  haut  pour  les  X-termes,  et  ici  la  relation  »»  est  definie  entre 
termes  marques.  Cet  abus  est  justifie  en  remarquant  que  M  •*  N  ssi  M  = 
marie  UL,L«*L' par  une  derivation  D  comme  definie  precedemment,  et  N  = 
mark  V  L'  avec  (L'.V)  =  trace  (L.U)  D. 
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R6ciproquement,  on  definit  une  derivation  parallels  da  L  vers  L'  comma 
une  paire  (L,S),  avec  (M,S)  :  M  •*  *  M’  par  une  derivation  parallels  comma 
detini  ci-dessus,  avec  M  =  mark  []  L  at  L'  =  unmark  M'.  On  dit  qua  deux 
sequences  de  calcul  S  et  S'  sont  6ouivalentes  an  L  ssi  M\S  -  M\S'  pour  tout 
marquage  M  da  L.  On  ecrit  alors  (L,S)  ■  (L,S‘). 

Remarque.  L'equivalence  entre  derivations  ■,  appeiee  equivalence  da 
permutations,  distingue  des  derivations  aboutissant  au  memo  terme.  Par 
example,  les  deux  derivations  qui  r6duisent  (I  (I  M))  en  (I  M)  ne  sont  pas 
equivalentes  (pourquoi?).  Par  contre,  toutes  les  derivations  issues  d'un 
terme  normalisable  et  aboutissant  e  sa  forme  normals  sont  equivalentes. 

On  dit  que  retape  de  derivation  est  vide  lorsque  I'ensemble  de  radicaux 
reduits  4  cette  etape  est  vide. 

On  appelle  developoement  de  M  une  derivation  parallels  issue  da  M  telle 
qu’4  cheque  etape  b)  ci-dessus  on  ait  U  c  M.  Autrement  dit,  un 
developpement  est  une  derivation  parallels  qui  ne  fait  pas  de  creations  de 
radicaux,  les  seuls  radicaux  contractes  etant  des  residus  des  radicaux 
marques  initialement  dans  M .  Le  developpement  D  est  dit  complet  s'il 
aboutit  4  un  terme  n'ayant  plus  de  radicaux  marques. 

Nous  allons  maintenant  nous  interesser  4  la  structure  des  derivations. 
La  premiere  operation  est  la  concatenation. 

Soit  D  :  M  »» *  N  par  la  suite  SetD'  :  N  »♦  *  N1  par  la  suite  S',  on  definit  la 
concatenation  D  <§>  D' :  M  »♦  *  N1  comme  donnee  par  la  suite  S  @  S'. 

On  etend  maintenant  la  notion  de  residu  4  une  operation  entre 
derivations.  Tout  d'abord,  soit  S  une  suite  de  calcul  et  U  un  ensemble 
d'occurrences.  On  definit  S\U  par  recurrence  sur  la  longueur  de  S  comme 
suit. 

a) t]\U  =  t] 

b)  (V::S)  \  U  =  (VMJ)  ::  (S* U\V)). 

Cette  derni4re  clause  suppose  bien  sOr  U  TV.  On  laisse  au  lecteur  le  soin 
de  verifier  que  si  D  =  (M,S)  :  M  •*  *  N  avec  M  tU,  alors  DMJ  =  (M\U,  SMI) 
definit  une  derivation  paralieie  MMJ  NMJ. 
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Soient  maintenant  D  =  (M,  S)  et  D'  =  (M\  S')  deux  derivations,  avec  M  T 
M'.  On  ddfinit  D'\D  cornrne  la  derivation  (MSS,  S*SS),  avec  I'operation  \ 
d6finie  par  recurrence  sur  la  longueur  de  S'  par : 

a) []\S  =  [] 

b)  (U::S')  \  S  =  (USS)  ::  (S'  VS  \U)). 

Nous  laissons  au  lecteur  le  soin  de  verifier  que  cette  definition  est  bien 
fond6e. 

Soit  D:M»**NetD':M»**K  deux  derivations  issues  du  me  me  terme 
marque  M.  On  dit  que  D  calcule  moins  que  D',  et  on  ecrit  D  s  D',  si  et 
seulement  si  on  peut  prolonger  D  en  D',  c'est  k  dire  s'il  existe  une 
derivation  N  »**  N'. 

L'ensemble  des  derivations  issues  d'un  m§me  terme  marque  M  forme  un 
sup  demi-treillis,  avec  I'ordre  pr6fixe  :  (M,  S)  £  (M,  S')  ssi  S  £  S'.  On  laisse 
au  lecteur  le  soin  de  verifier  que  I'operation  u  est  la  borne  superieure,  . 
avec  u definie  par  DuD’  =  D@  (DND). 

II  est  clair  que  la  notion  de  derivation  issue  d'un  terme  marque  n'est 
qu'un  instrument  technique  pour  etudier  les  derivations  k  partir  de 
X-termes.  Pour  ceie,  on  remarque  que  toutes  les  notions  definies  ci-dessus 
s’6tendent  aux  derivations  sur  les  X-termes  (non  marques),  et  que  les  deux 
operations  @  et  \  pr6servent  ('equivalence  ■  ci-dessus. 

Definition.  D  £  D'  si  et  seulement  si  on  peut  prolonger  D  en  une 
derivation  equivalents  k  D',  i.e.  s'il  existe  D"  telle  que  D  @  D"  ■  D'. 

Soit  Der(M)  l'ensemble  des  derivations  issues  d'un  lambda  M. 

Theorems  de  Levy.  (Der(M)/> ,  £)  a  la  structure  d'un  sup-demi-treillis. 

Remarque  :  ce  r6sultat  justifie  la  gendralite  de  la  demonstration  que 
nous  avons  donnke  du  theorems  du  loeange,  en  passant  par  le  lemme  du 
cube.  La  structure  des  derivations  du  X-calcul  est  investigee  trds 
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compietement  dans  la  these  de  J.J.  L6vy. 

Exerclees. 

1 .  Donner  une  version  categorique  du  th6or4me  exprimant  que  la 
categorie  ayant  pour  objets  les  X-termes  et  pour  filches  les  derivations 
quotient4es  par  permutation  admet  des  sommes  amalgam6es. 

2.  (Plotkin)  Montrer  qu'il  n'existe  pas  de  X-terme  se  d6rivant  4  la  fois 
sur  ([x]((y  x)  (y  z))  z)  et  sur  «(x](x  x)  (y  z)).  En  d6duire  que  la  propri6t6 
duale  d'inf-demi-treillis  n'est  pas  vraie. 

3.  Montrer  que  la  structure  de  sup-demi-treillis  des  derivations  n'induit 
pas  une  structure  de  sup-demi-treillis  de  I'ordre  de  ^-reduction  sur  les 
termes  issus  d'un  mfime  terme. 

Remarque.  Les  termes  marques  peuvent  6tre  enrichis  d'autres 
decorations.  Par  example,  Barendregt  dans  son  livre  considers  des  termes 
dont  les  operateurs  d'abstraction  sont  marques  par  des  entiers  naturels. 
JJ.  Levy  dans  sa  these  considere  des  termes  marques  par  des  etiquettes. 
suites  memorisant  I'histoire  du  calcul  menant  4  ce  terme.  Dans  la 
prochaine  section  nous  allons  marquer  les  variables  par  des  entiers 
positifs  appeies  ooids. 
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5.  Le  thdordme  des  ddveloppements  finis 

Thdordme  des  ddveloppements  finis.  Tout  ddveloppement  est  fini, 
dans  le  sens  oil  it  est  ultimement  vide. 

Autrement  dit,  toute  suite  de  calculs  qui  ne  rdduit  d  chaque  dtape  que 
des  rdsidus  de  radicaux  du  terme  d'origine,  termine  ndcessairement. 

La  mdthode  de  preuve  utilise  des  termes  marquds  dont  les  variables  dont 
ponddrdes  par  des  entiers  strictement  positifs  : 

type  ponddrf  = 

PRef  of  num 

I  PAbs  of  num  *  ponddrd  (*  ler  arg  =  poids  •) 

I  PApp  of  bool  *  pond6r6  *  ponddrd;; 

On  dtend  le  poids  k  un  terme  ponddrd  par  sommation  des  poids  de  ses 
variables  : 

(*  plibres  est  un  environnement  de  poids  *) 
let  rec  poids_env  plibres  =  function 

PRef(n)  -*  nth  plibres  n 

I  PAbs(p.e)  -»  poids_env  (p::plibres)  e 

I  PApp(_,g,d)  -♦  (poids_env  plibres  g)  +  (poids_env  plibres  d);; 

let  poids  =  poids_env  f);;  (*  poids  d’un  terme  fermd  *) 

Comma  au  paragraphs  prdeddent  nous  supposerons  que  les  marques  ne 
valent  true  que  sur  des  occurrences  de  radicaux.  On  suppose  qu'on  dtend  de  la 
manidre  natureHe  aux  termes  ponddrds  les  notions  de  substitution 
(algorithme  psubst),  et  done  de  calcul,  rdsidu,  etc... 

On  laisse  au  lecteur  la  preuve  du  lemme  suivant,  par  rdcurrence 
contextuelle. 

Lemme  de  substitution.  Soit  plibres  un  environnement  de  poids  de 
longueur  nSO,  soit  MeAn+1,  NeA,,.  et  Q  =  psubst  N  M.  Alors  pour  tout  entier 
p2poids_env  plibres  N,  on  a  poids_env  (p;;plibres)  M  2  poids_env  plibres  Q. 
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Corollaire.  Sous  les  mimes  conditions,  avec  P=PApp(b,PAbs(p,M),N),  on 
a  poids_env  plibres  P  >  poids_env  plibres  Q. 

II  suffit  de  remarquer  pour  ie  corollaire  que  (poids_env  plibres  N)>0.  On 
voit  done  que  la  reduction  d'un  terme  bien  pondere  en  fait  d6crottre  le  poids, 
ce  qui  justifie  la  definition  suivante. 

Un  terme  pondere  est  dit  decroissant  si  et  seulement  si  pour  toute 
occurrence  de  radical  marque  PApp(true,PAbs(p,M),N),  le  poids  p  est 
superieur  ou  6gal  au  poids  de  N.  Pius  precisement,  on  verifie  : 


let  rec  decr.env  plibres  =  function 
PRef(_)  -*  true 

I  PAbs(p.M)  -4  decr_env  (p::plibres)  M 

I  PApp(b,M,N)  -♦  decr_env  plibres  M  &  decr_env  plibres  N  & 

(not  b  or  let  (PAbs(p,_))  =  M 
in  p2(poids_env  plibres  N));; 
let  dicroissant  *  decr.env  (];; 

Proposition.  A  tout  terme  marque  correspond  un  terme  pondere 
decroissant  de  mdme  structure. 

Demonstration.  On  associe  au  terme  marque  M  le  terme  pondere 
pond(M)  calculi  comme  suit  : 

let  rec  pond&re  plibres  =  pond_with  I 
where  rec  pond.with  p  =  function 

MRef(n)  -»  (PRef(n),  nth  plibres  n) 

I  MAbs(M)  -*  let  (M',p')  =  pondbre  (p::plibres)  M 

in  (PAbs(p,M'),p*) 

I  MApp(b,M,N)  let  (N’.p')  =  pond.with  1  N  in 

let  (M'.p")  =  pond_with  (if  b  then  p’  else  1)  M 
in  (PApp(b,M',N'),  p+p");; 

let  pond  x  =  fst(pondire  []  x);; 
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On  montre  que  pond(M)  est  d6croissant  par  recurrence  contextuelle  sur  M. 
En  effet,  on  virifie  :  pondire  plibres  M  =  (M',poids_env  plibres  M'). 

On  laisse  au  lecteur  le  soin.de  verifier  le  lemme  technique  suivant,  par 
recurrence  sur  M,  et  en  utifisant  le  lemme  de  substitution  ci-dessus. 

Lemme  de  preservation  de  la  decrolssance. 

Soit  plibres  un  environneonent  de  poids  de  longueur  nzO,  soit  MeAn+1, 
N €  A,j,  p2poids_env  plibres  N,  tels  que  decr.env  (p::plibres)  M  et  decr.env 
plibres  N.  On  a  decr.env  plibres  (psubst  N  M). 

Lemme  de  preservation  dee  ponderations  decroissantes. 

Soit  M  un  terme  marque  pondere  decroissant,  U  un  ensemble  de  radicaux 
marques  de  M  :  U  c  M.  et  N  =  M\U.  N  est  un  terme  marque  pondere 
decroissant,  tel  que  poids(N)Spoids(M),  I’inegalite  6tant  stricte  si  U  est  non 
vide. 

Demonstration. 

L’enonce  concerne  un  terme  ferme.  Pius  generalement,  pour  M*\,  et 
plibres  un  environnement  de  poids  quelconque  de  longueur  n20,  avec 
decr_env  plibres  M,  on  montre  poids.env  plibres  N  £  poids_env  plibres  M,  et 
decr.env  plibres  N,  par  recurrence  sur  M\U. 

-  Cas  M=(M1  M2)  »•  N=(N1  N2),  topeU,  avec  Ml  »*  N1  et  M2  »♦  N2.  Par 
hypothise  de  recurrence  on  a  poids.env  plibres  N1  £  poids.env  plibres  Ml, 
poids.env  plibres  N2  £  poids_env  plibres  M2,  et  done  poids_env  plibres  N  £ 
poids.env  plibres  M.  De  meme  on  a  decr.env  plibres  Ml,  etdecr.env  plibres 
N.  Si  top«N  (N  marque),  e'est  que  Nl=[x:p]Ql,  et  alors  foredment  Ml=[x:p]Pl, 
avec  topcM .  Par  hypothese  decr.env  plibres  M,  on  doit  avoir  p  i  poids.env 
plibres  M2  i  poids.env  plibres  N2  par  hypothese  de  recurrence,  et  on  a  done 
decr_env  plibres  N. 

•  Cas  M=([x:p]Ml  M2)  •*  N*psubst  N2  Nl,  top«U,  avec  Ml  »♦  N1  et  M2  »• 
N2.  Par  hypothese  de  recurrence  on  a  poids.env  plibres  Nl  £  poids.env 
plibres  Ml,  poids.env  plibres  N2  £  poids.env  plibres  M2,  et  comme  U  c  M 
on  a  topcM,  (foil  p  z  poids.env  plibres  M2  par  hypothese  decr.env  plibres  M. 
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On  a  dgalement  decr.env  (p::plibres)  Ml  at  decr.env  plibres  M2.  Par 
recurrence,  on  oblient  done  aussi  decr.env  (p::plibres)  N1  at  decr.env 
plibres  N2.  Par  la  iamme  da  preservation  da  la  decroissanca  on  an  ddduit 
decr.env  plibres  N.  Finalament,  on  a  poids.env  plibres  M  2  poids.env 
plibres  ([x:p]Nl  N2)  >  poids.env  plibres  N  par  la  corollaire  du  lemma  de 
substitution. 

-  les  autres  cas  na  prdsentent  pas  da  difficult^. 

Remarque. 

En  general  les  radicaux  erdds  na  peuvant  dtre  marquds  sans  violer  la 
condition  de  ddcroissance.  Considdraz  par  example  : 

UsKtaKy  *)  U1I2)  p  lx2]([z,]z  x). 


Demonstration  du  theorems. 

Soit  M  un  terms  marqud.  Tout  ddveloppament  de  M  sans  dtape  vide  est  de 
longueur  infdrieure  k  poids(pond(M)). 

Remarque. 

La  theorems  a  d'abord  dt6  prouvd  par  Curry  pour  le  X-l-calcut,  une 
restriction  qui  axiga  qua  toutas  las  variables  tides  apparaissent  au  moins 
une  fois.  La  theorems  n'a  dtd  prouvd  dans  touts  sa  gdndralitd  qu'en  1965  par 
Schroer.  La  demonstration  ci-dessus  ast  inspires  d*une  preuve  due  k  Hyland 
et  Barendregt.  Ici  nous  donnons  un  poids  uniforms  k  toutas  les  occurrences 
d'une  variable  lide,  ce  qui  simplifie  Idgdrement  la  preuve,  et  permet 
d'assimiler  la  ponddration  d'une  variable  e  un  type  (dans  Barendregt,  pond 
est  obtenu  an  ponddrant  las  occurrences  da  variables  de  la  droite  vers  la 
gauche  par  das  puissances  da  2  successives). 
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6.  La  theorems  da  standardisation 

Le  theorems  du  iosange  nous  a  montrd  qua  la  notion  da  calcul  6tait 
d§terministe.  En  particulier,  tout  terme  M  normalisable  admet  une  forme 
normals  Normal(M)  unique,  et  il  exists  une  derivation  M  O*  Normal(M). 
Mais  ceci  ne  nous  suffit  pas  pour  construire  un  interpreter  du  X-calcul.  On 
aimerait  que  cet  interpreter  puisse  dtre  ddfini  comme  une  fonction 
recursive  e  associant  a  tout  terme  M  un  ensemble  e(M)  de  ses  radicaux, 
avec  e(M)  -  0  si  et  seulement  si  M  est  en  forme  normals.  L'interpreteur 
sera  dit  correct  s'il  mens  a  la  forme  normale  de  tout  terme  normalisable. 
C'est  S  dire,  pour  tout  terme  M  normalisable  il  exists  n,  M, . tels 

que  M=M,.  Mn=Normal(M),  et  pour  tout  i,  avec  l£i<n,  on  a  :  Mi+1=Mi'4(  M,). 

Par  exemple,  si  on  choisit  pour  e(M)  Pensemble  des  radicaux  les  plus 
internes  de  M  (strategic  dite  d'aooel  oar  valeurt.  on  obtient  un 
interpreter  qui  n'est  pas  correct,  comme  le  montre  I'exemple  ([x]I  a).  Si 
on  choisit  pour  <KM)  I'ensemble  de  tous  les  radicaux  de  M  (strategic  dite 
complete  ou  de  Gross-Knuth),  on  obtient  un  interpreter  correct 
(pourquoi?). 

Nous  allons  maintenant  voir  qu'il  exists  des  strategies  correctes  qui 
calculent  de  I'exterieur  vers  I'intdrieur,  tout  en  ne  rdduisant  qu'un  radical 
a  chaque  a  tape. 

Definition. 

Soit  u  et  v  deux  occurrences.  On  dit  que  u  est  a  gauche  de  v,  et  on  ecrit 
uZ  \ ,  si  et  seulement  si  soit  u<v,  soit  il  existe  w,  u'  et  v'  tels  que 
u=w@(A::u’)  etvsw@(B::v').  La  relation  z  est  un  ordre  total  strict. 


Lemma  do  preservation  des  occurrences  a  gauche. 

Soit  u  et  v  des  occurrences  de  radicaux  dans  un  terme  quelconque,  avec 
u Z  v.  On  a  : 
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2.  uZw  pour  toute  occurrence  w  (fun  radical  crii  par  v. 

3.  uZw  implique  uZw’  pour  tout  w’  dans  w\v. 

Mimes  risultats  avec  V  ensemble  d'occurrences  de  radicaux,  tel  que  uz 
v  pour  tout  v  dans  V. 

Nous  laissons  la  preuve  de  ce  lemme,  par  cas  sur  les  positions 
respective s  des  occurrences,  au  lecteur. 


Pour  tout  terme  M  riductible,  on  difinit  gsuche(M)  comma  ie  radical  le 
plus  &  gauche  de  M.  On  peut  le  calculer  par  I'algorithme  : 


exception  NomulForm;; 
let  gauche  =  searchleft  top 
where  tec  searchleft  u  =  function 


RetU 

I  Abs(e) 

I  App(AbsO J 

1  App(g,d) 


-»  raise  NonrudForm 
-4  searchleft  (C::u)  e 
-*  rev(u) 

->  oy  searchleft  (A::u)g 

with  NormalFbrm  -4  searchleft  (B::u)  d;; 


Definition. 

Considirons  une  derivation  riduisant  un  radical  &  chaque  6 tape  :  (M.S), 
avec  S»[u , ;  ...  ;un).  Soit  Sy  *  lu;;  ...  ;uj],  Mj-M\Su.  La  derivation  est  dite 
standard  si  et  seulement  si  pour  tous  lsi<j£n,  si  Uj«v\Sij.,,  avec  veR(Mio), 
ators  UjZv, 

C'est  &  dire,  pour  toute  4 tape  de  reduction  i,  il  n'existe  pas  de  radical  v 
&  gauche  de  u(  dans  M,.,  dont  run  des  risidus  par  la  derivation  considirie 
soit  contract^  k  une  tape  uWrieure  j. 

Examples. 

(IxlfljQ  a  y))  *  (Ix]x  CLxD  O  (Wx  y)  «st  standard 

([xlfljQ  0  y»  *>  (fx)x  fljD  o  Ct&U-y)  y  ne  l’«t  pas 
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Rimirquu. 

1.  Si  D@D'  est  standard,  D  at  D'  le  sont  au$si.  La  reciproque  n'est  pas 
vraie  an  general. 

2.  II  n'y  a  pas  d'axtansion  evidente  da  la  notion  da  derivation  standard 
aux  derivations  paralieias.  En  effet,  on  a  vu  qu'une  reduction  an  parallels  da 
n  radicaux  paut  se  sequantialisar  en  n  reductions  eiemantairas,  mais  de 
I'interieur  vers  I'axteriaur,  alors  qu'une  derivation  standard  doit  proceder 
da  I'axteriaur  vers  I'interieur.  II  est  facile  de  montrer  qu'une  etape  de 
reduction  parallels  U  paut  se  sequantialisar  en  reductions  eiemantaires 
proc6dant  da  I'axteriaur  vers  I'interieur  :  on  reduit  la  radical  u  le  plus  a 
gauche  de  U,  at  on  itere  sur  U\u;  la  construction  s'arr6te  par  le  theoreme 
des  developpements  finis.  Plus  generalement  : 


Theorems  da  standardisation.  Touts  derivation  est  equivalents  a 
une  derivation  standard  unique. 

Avant  da  montrer  ca  theoreme,  on  definit  r6cursivement  une  derivation 
st(D)  associde  a  une  derivation  parallels  D. 

Definition  :  R(D).  Soit  D=(M,S)  une  derivation  parallels  de  longueur  n 
issue  d'un  terms  M,  avec  S=[U,;  ...  ;Un].  On  definit  R(D)  comma  I'ensembla 
des  occurrences  de  radicaux  de  M  dont  au  moins  un  r6sidu  est  rSduit  dans  D: 

R(D)-{ve  R(M)  I  3kSn  u\Sik.,nUk#0). 

Definition  :  st(D).  Soit  D=(M,S)  une  derivation  parallels  de  longueur  n 
issue  d'un  terms  M.  On  definit  recursivament  une  derivation  st(D),  qui 
reduit  un  radical  a  chaque  etape.  Soit  S=[U,; ...  ;UB].  II  y  a  deux  cas. 

-  D  est  vide,  c.a.d.  Uj=  0  pour  tout  i.  Alors  st(D)  est  la  derivation  vide. 

•  sinon.  soit  u  ('occurrence  la  plus  4  gauche  de  R(D).  Par  le  lemme 
ci-dessus,  on  obtient  qua  u  est  une  occurrence  de  radical  dans  M,  qui  est 
preserves  par  la  derivation  D,  jusqu'4  etre  reduite,  disons  a  l'6tape  k  : 

u«R(M),u\Slik.,  a  (u),  u«Uk. 

Soit  D'=  st(D\u).  On  prend  pour  st(D)  la  derivation  issue  de  M  qui  reduit 
u,  et  se  poursuit  par  D’.  C’est-a-dire,  avec  D’=(M’,S’)  :  st(D)=(M,u::S  ). 
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La  construction  est  illustree  par  la  figure  3  ci  dessous. 

D-U1  U2  ™  Uk 
Mi  *i  - 1-“--, - 

u  0  0  CuO  0  0 

m*  »* 

Mr - - - - - 


Le  seul  problem©  de  cette  definition  est  de  montrer  qu'elle  est  bien 
fondle,  c'est  k  dire  qu'on  ne  peut  pas  boucler  ind6finiment  dans  le  2&me 
cas.  Mais  if  suffit  de  remarquer  qu'on  aurait  alors  une  6tape  k  qui  serait 
s6lectionn6e  un  nombre  infini  de  fois.  Pour  un  tel  k  maximum,  &  partir  d'un 
certain  rang  on  aurait  un  dOveloppement  infini  des  radicaux  de  Uk,  ce  qui 
est  impossible. 

Demonstration  du  theorem®  de  standardisation  (Klop).  Par 
construction  st(D)  est  equivalents  &  D.  II  suffit  de  montrer  que  st(D)  est 
standard,  et  qu'une  derivation  standard  est  unique  dans  sa  ciasse 
d'Oquivalence.  Nous  laissons  les  details  de  ces  preuves  au  lecteur. 

Remarque.  II  est  faux  que  R(D)=R(D’)  pour  deux  derivations  dquivalentes 
D  et  D\  Par  example,  avec  M=([x]I  (I  I)),  D=[{top}]  et  D’=[{top,[B]}]  sont  deux 
derivations  equivalentes  menant  de  M  ft  sa  forme  normale  I. 


r 

0 

*  u 

0 

0 

Figure  3 


Definition.  Une  derivation  normale  est  une  derivation  qui  reduit  & 
cheque  etape  le  radical  le  plus  8  gauche. 

Pour  tout  M,  il  exists  au  plus  une  derivation  normale  de  longueur 
donnee.  Elle  est  calcuiee  par  I'interpreteur  normal,  defini  par  $(M)  - 
(gauche(M)}  si  M  est  reducible. 

Theorems.  L'interpreteur  normal  est  correct. 

Ceci  est  un  corollaire  immediat  du  theorems  de  standardisation,  car  la 
standard  <fune  derivation  menant  e  la  forme  normale  est  normale. 
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Voici  la  procedure  qui  it§re  le  calcul  de  I'interprdteur  normal. 

let  onestep  e  =  let  u=gauche(e)  in  rtduit  e  u;; 

let  rec  normal  .e  =  try  normal  (onestep  e)  with  NormalForm  -»e;; 

Remarques. 

1.  Cette  specification  n'est  pas  satisfaisante,  car  cet  interpreter 
recalcule  &  chaque  fois  le  radical  it  r6duire  &  partir  du  sommet  du  terme.  II 
n'y  a  pas  de  moyen  direct  d'6crire  un  interpreter  normal  calculant 
r§cursivement  sur  la  structure  d'un  lambda,  &  cause  du  phenomena  de 
creation  des  radicaux  “vers  le  haut".  Nous  verrons  comment  resoudre  cette 
difficulte  dans  la  prochaine  section. 

2.  Cet  interpreter  n'est  utile  que  pour  les  termes  normalisables.  If 
boucle  sur  les  termes  non-normalisables,  alors  qu'intuitivement  il  est 
possible  en  general  d'obtenir  une  information  positive  sur  les 
approximations  successives  des  termes  obtenus  le  long  d’un  calcul,  meme 
ne  se  terminant  pas  sur  une  forme  normale.  Nous  verrons  ci-dessous 
comment  calculer  progressivement  ces  approximations. 

3.  En  general,  I'interprOteur  normal  n'est  pas  optimal  (en  nombre  de 
reductions  effectuees).  Lorsqu'il  y  a  des  duplications,  il  vaut  mieux  souvent 
proceder  de  I'interieur  vers  I'exterieur.  Pourtant,  I'interpr6teur  en  appel 
par  valeur  n'est  pas  correct,  car  il  peut  faire  des  etapes  non  nOcessaires; 
meme  lorsqu'il  est  correct,  il  n'est  done  pas  optimal  non  plus.  Pour  obtenir 
un  interpreter  optimal,  il  faut  compter  pour  une  etape  de  calcul  la 
reduction  en  paralieie  de  radicaux  appartenant  A  la  meme  famille. 
Intuitivement,  deux  radicaux  sont  dans  la  meme  famille  s'ils  sont  residus, 
ou  crees  de  la  meme  maniere,  par  des  radicaux  de  la  meme  famille.  Cette 
notion  a  6t6  etudi6e  formellement  par  J.J.  Levy,  qui  a  montre  I'optimalite 
de  cette  strategie.  Remarqufz  toutefois  qu'une  telle  strategie  generalise 
notre  notion  d'interpreteur,  car  II  doit  se  rappeler  de  I'histoire  de  ses 
calculs.  Cette  memorisation  peut  s'effectuer  par  des  marques  sur  les 
X*termes  fetiauattesl. 
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7.  Approximations. 

7.1.  Forme  normale  da  t6te. 

Les  formes  normales  de  t6te  sont  les  lambdas  de  la  forme: 

I*i . xjfx  M, ...  Mp) 

avec  x,  x, . x„  variables,  Mj  ...  Mp  lambdas  quelconques,  n.p^O. 

Une  forme  normale  de  tSte  repr6sente  une  approximation  de  forme 
normale,  car  elle  est  invariants  (en  n.x  etp)  par  P-r6duction. 

type  head  =  Head  of  num  •  num  *  lambda  list;;  (*  n,  x,  [M, ; ... ;  Mp]  *) 

Voici  I'algorithme  de  mise  en  forme  normale  de  t§te  d’un  lambda,  par 
reduction  normale  ; 

let  head  =  hnf  0  []  (*  head :  lambda  -»  head  *) 

where  rec  hnf  n  suck  =  function 

Ref(x)  -»  Head(n,x,stack) 

I  Abs(e)  -»  (match  stack  with 

[]  -+  hnf(n+l)[]e 

I  arg::args  -*  hnf  n  args  (subst  arg  e)) 

1  App(g,d)  -*  hnf n  (d::args)  g;; 

On  peut  maintenant  organiser  l'interpr§teur  normal  en  itSrant  la 
fonction  head. 

type  normal  =  Normal  of  num  *  num  *  normal  list;; 

let  rec  norm  e  =  (*  norm  :  lambda  -*  normal  *) 

let  (Head(n,x,args))  =  head(e)  in  Normal(n,x,map  norm  args);; 

7.2.  Arbros  de  Bdhm. 

II  est  aussi  possible  de  dgfinir  un  interprgteur  qui  calcule,  de 
I'extdrieur  vers  I'interieur  mais  non  foredment  de  la  gauche  vers  la  droite, 
une  suite  d'approximations  d6crivant  un  arbre  infini  g§n6ralisant  la  notion 
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de  forme  normale.  Un  tel  arbre  s'appelle  I'arbre  de  B6hm  du  lambda. 

type  approximation  =  BT  of  num  *  ntim  *  (gdnlrateur  list) 
and  g&idrateur  -  ==  (void  -»  approximation);; 

^approximation  BT(n,x,[f,;  f2;.„;  fpJ)  reprdsente  ('information  qu'on  a  sur 
un  X-terme  lorsqu'on  a  reconnu  qu'il  se  rdduit  sur  la  forme  normale  de  t§te  : 

[x,,x2,...,  xn](x  ej  e2 ...  ep).  Le  g6n6rateur  f:  permet  de  calculer 
('approximation  de  e;  par  I'exticution  de  f;().  La  procedure  approx  ci-dessous 
calcule  ('approximation  d'un  X-terme  par  reduction  normale  ; 


(*  approx :  lambda  -*  approximation  *) 
let  tec  approx  =  apx  0  [] 
where  rcc  apx  n  args  =  function 

Ref(x)  -»  BT(n,x .map  (fun  e  ()  -»  approx(e))  args) 

I  Abs(e)  -»  (match  args  with 

IJ  -»  apx  (n+1)  []  e 

I  first:  jest  -»  apx  n  rest  (subst  first  e)) 

1  App(g,d)  -»  apx  n  (d::args)  g;; 

Exemple.  Avec  D  =  [x,y](y  (x  x  y)),  0  =  (D  D)  et  M  *  (8  [x,y](y  x)),  on 
obtient  approx(M)  =  BT(l,l,[f]),  avec  f()  calculant  rdcursivement  la  mdme 
approximation  BT(l,l,(f]).  L'arbre  de  Bfihm  de  M  est  done  I'arbre  infini  : 

(x](x  j ) 

[x](x  | 

[x](x  | 

[xj(x  | 

Exerclce.  Reddfinir  le  type  gtnlrateur  en  employant  une  structure  de 
donnde  paresseuse,  plutfit  que  des  fermetures. 

Les  lambdas  normalisables  ont  un  arbre  de  Bdhm  fini.  Certains  lambdas 
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ont  un  arbre  de  B6hm  vide  (indiqu6  par  le  symbole  X),  car  la  procedure  head 
(ou  approx)  peut  ne  pas  terminer. 

Definition.  On  dit  que  le  lambda  M  est  defini  si  et  settlement  si 
head(M)  termine. 

Par  exemple,  M  ci-dessus  est  defini,  bien  qu'il  n'ait  pas  de  forme 
normale.  Par  contre,  Q  n'est  pas  d6fini,  il  a  pour  arbre  de  Bfihm  l.  Les 
termes  non  definis  sont  absurdes  du  point  de  vue  calculatoire  :  ils 
n'apportent  aucune  information. 

Proposition.  Si  (M  N)  est  defini,  alors  M  est  defini. 

Nous  laissons  en  exercice  la  preuve  de  cette  proposition,  qui  utilise  le 
th6or&me  de  standardisation. 

Nous  donnons  maintenant  une  autre  caract6risation  des  termes  definis. 

Definition.  On  dit  que  le  lambda  M  est  solvable  si  et  seulement  s'il 
existe  n  et Nj , ... ,  Nn,  tels  que  (M. ...  Nn) si,  ou  M.  d6si$}ne  la  fermeture 
[u,,  u2, ...  uk]M  de  MeAk. 

Thdoreme  de  Wadsworth.  Un  lambda  est  defini  si  et  seulement  s'il 
est  solvable. 

Demonstration.  Soit  M  un  lambda,  qu'on  peut  supposer  ferm6.  Si  M  est 
solvable,  alors  il  est  defini,  par  la  proposition  ci-dessus. 

Reciproquement,  si  MO*  (x,,x2,...,  xa](m  c,  c2  ...  ep),  alors,  en 
ddfinissant  Kp  -  (x,  y,,y2 . yp]x,  on  obtient  : 

(M  (KP  I), ...  (KP  I)n)  O  *  (KP  I  e',  e'2 ...  e’p)  O  I. 
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8.  Variations  sur  la  notion  da  ealeul 

La  notion  de  caicul  qua  nous  avons  6tudi6e  jusqu'4  present  s’appelle  la 
p-reduction  du  X-K -caicul  pur.  II  exists  de  nombreuses  variations  sur  le 
theme  du  X-calcul.  Dans  le  chapitre  3  nous  verrons  diverses  variantes 
typ6es.  Donnons  ici  bri6vement  quelques  variantes  du  caicul  pur,  c'est  8 
dire  sans  types. 

8.1.  Eta*rdduetlon 

On  considers  quelquefois  une  regie  de  caicul  supplemental,  appelde 
q-reduction,  qui  correspond  ii  une  forme  faible  de  1‘extensionnalite  : 

[x](M  x)  -*  M  (x  non  libre  dans  M)  (q) 

ou,  en  notation  abstraite  :  [](M+  1)  -*  M,  avec  M+  =  lift  1  M. 

Cette  regie  est  justifies  par  (‘utilisation  du  X-calcul  pour  ddnoter  des 
fonctions.  En  effet,  pour  tout  lambda  N,  on  a  ([x](M  x)  N)  a  M  lorsque  x 
n'apparait  pas  libre  dans  M. 

La  theorie  de  la  pq-r6duction  n'est  pas  aussi  eiegante  que  cells  de  la 
p-r6duction  seule,  e  cause  de  I'ambiguite  des  expressions  de  la  forme 
([x](M  x)  N),  qui  font  se  chevaucher  des  radicaux  des  deux  sortes.  Par  une 
sorte  de  “miracle  syntaxique*.  les  deux  sortes  de  reduction  menent  au 
mfime  r6sultat  (M  N),  mais  la  notion  de  residu  n'est  plus  claire. 

La  propriete  de  confluence  de  la  Pq-reduction  est  consequence  des  deux 
lemmes  suivants,  dont  nous  laissons  la  demonstration  au  tecteur.  On  utilise 
le  symbols  -*  pour  la  q-reduction  (qui  est  etsndue  par  congruence  sur  la 
structure  des  termes  comma  la  p-reduction),  at  +  pour  la  Pq-rdduction. 

Lamina  da  ratard  da  la  regia  q. 

Si  M  ♦  *  N,  alors  il  existe  P  tal  que  M  O  •  P  •*  *  N. 
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Lemma  de  commutation  dea  regies  p  at  x\. 

a.  Si  M  Nj  et  M  -*  N2  alors  il  exists  P  tel  que  N,  «+*  P 

et  N2e>  PouN2-P. 

b.  Si  M  -*■  Nj  et  M  •*  N2  alors  il  existe  P  tel  que  N,  -*  P  et  N2-*  p. 


8.2.  Reduction  faible 

La  reduction  faible  s'obtient  en  supprimant  la  regie  ^  de  congruence  de 
la  relation  =>  par  rapport  8  I'abstraction.  Autrement  dit,  la  reduction  faible 
ne  calcule  pas  8  I'intdrieur  des  abstractions.  Ce  calcul  possdde  davantage 
de  formes  normales,  puisque  toutes  tes  abstractions  sont  maintenant 
irrdductibles. 

La  reduction  faible  se  justifie  par  {‘utilisation  du  X-calcul  pour  dCcrire 
des  calculs  donnant  ultimement  des  donnees  concretes.  La  regie  %  peut 
alors  §tre  interpr6t6e  comme  une  r8gle  de  manipulation  de  programmes 
plutdt  qu’une  regie  de  calcul  proprement  dite. 

Nous  verrons  plus  loin  un  autre  formalisms  de  calcul,  appeie  logique 
combinatoire,  et  nous  montrerons  son  equivalence  avec  la  reduction  faible 
dans  le  X-calcul  muni  des  regies  p  etq. 


8.3.  X*l-calcul 

II  s'agit  ici  d'une  restriction  8  la  syntaxe  du  X-calcul  :  I'abstraction 
[x]M  n'est  autoris6e  que  lorsque  I'expression  M  a  au  moins  une  occurrence 
libre  de  la  variable  x.  Les  expressions  autorisees  sont  appeiees  strictes. 
car  elles  repr6sentent  des  fonctions  strictes,  qui  ont  toujours  besoin  de 
calculer  leurs  arguments. 

Void  I'algorithme  qui  verifie  si  un  lambda  est  strict  : 

let  rec  strict  =  function 

Ref(_)  true 

I  Abs(e)  -»  (match  locaux(e)  with  []  -*  false  I  _  -*  strict  e) 
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I  App(g,d)  -»  (strict  g)  &  (strict  d);; 

Nous  verrons  plus  tard  une  interpretation  des  termes  du  X-calcul  type 
comme  les  preuves  d'un  calcul  propositionnel  intuitioniste.  La  restriction 
du  X-l-calcul  correspond  alors  k  la  logique  dite  relevante.  qui  ne  reconnait 
la  validite  cfune  preuve  de  A=»B  que  si  la  preuve  de  B  utilise  effectivement 
I'hypothdse  A. 

La  theorie  syntaxique  *du  X-l-calcul  est  plus  simple  que  cede  du 
X-K-calcul  etudiee  prec6demment.  Les  termes  solvables  sont  exactement 
les  termes  normalisables.  Un  terme  est  fortement  normalisable  si  et 
seulement  s’il  est  normalisabie.  L'interpr6teur  par  valeur  est  correct.  La 
derivation  normaie  est  de  longueur  maximale  dans  sa  classe 


8.4.  X-calcut  lineaire 

II  s'agit  ici  d'une  restriction  suppiementaire  :  ('abstraction  [x]M  n'est 
autorisee  que  lorsque  I'expression  M  a  exactement  une  occurrence  de  la 
variable  x.  Les  expressions  autorisees  sont  appeiees  Iin6aires.  car  elles 
repr6sentent  des  fonctions  qui  utilisent  leur  argument  de  fagon  lineaire. 

let  rec  linear  =  function 
Ref(_)  -»  true 

I  Abs(e)  -»  (match  locaux(e)  with  LJ  -» linear  e 

I  _  -» false) 

1  App(g,d)  -♦  (linear  g)  &  (linear  d);; 

La  theorie  .syntaxique  devlent  presque  triviale  :  les  derivations 
equivalentes  ont  toutes  la  memo  longueur. 
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9.  Separability. 

9.1  Enonge  du  theorems  da  Bdhm 

On  rappelle  las  definitions  :  T  =  [x,y]x,  F  =  [x,y]y. 

Definition.  On  dit  qua  las  lambdas  M  at  N  sont  sdparables  si  at 

seulement  s‘il  existe  das  termes  ferm6s  P, . PB  tels  qua  (M  P,  ...  Pn)  o*  T 

at  (N  Pj ...  Pn)  «b*  F. 

Theorems  da  B6hm. 

Deux  formes  p-normales  non  ^convertibles  sont  s6parabias. 

Corotlaira.  Tout  moddle  identifiant  deux  formas  p-normales  non 
^-convertibles  est  incoherent. 

Ici  incoherent  vaut  dire  identifiant  tous  las  termes  formes.  Ce 
corollaire  est  immediat,  an  remarquant  qua  par  definition  de  T  et  F  on 
peut  facilement  remplacer  dans  la  definition  de  separable  T  et  F  par  des 
termes  fermes  P  et  Q  arbitraires. 

La  preuve  du  theordme  de  Bdhm  n6cessite  (‘introduction  de  certaines 
notions  sur  les  arbres  de  Bdhm. 


9.2  Chafnes,  accasaibilite. 

Definition.  Una  chaine  de  longueur  s  est  une  suite  : 

S  =  [(I,  n,,  m,,  p,);  (k,.  n2,  m2,  p2)  ... ;  (k,.,,  nt,  m,,  p,)J, 
v6rifiant,  pour  tout  l£i£s  :  n£0,  p^O,  l^m^£[j=0,i]nj, 
et  pour  tout  l£i<s  :  lskjSpj. 

Intuitivement,  une  telle  chaine  denote  un  chemin  de  longueur  s  dans  un 
arbre  de  Bdhm.  Les  n(  sont  les  aritds  des  formes  normales  de  tdte 
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successives,  les  m;  les  variables  de  t6te,  les  p;  leur  nombre  d'arguments, 
I’occurrence  dans  I'arbre  de  B5hm  est  la  liste  des  k:. 

Definition.  Soft  M  est  un  terme  ferm6,  L  une  liste  de  g6n6rateur$,  et  Q 
une  liste  d*entiers  de  longueur  s.  On  dit  que  la  chaine  S  de  longueur  s  est 
accessible  dans  M  vers  L  modulo  O  ssi  : 

-  soft  s~0,  S=[],  Q=[],  L  =  [function  ()  -»  hnf  M], 

-  soft  s=t+l,  S=T@[(lc,  n,,  m,,  p,)],  Q=Q'@[q,],  OCi : 

•  T  =  [(1,  n,.  m,.  p,);  (k,,  n2,  nij,  p2);  ... ;  (lc,.,,  n,,  m,,  pt)J  est  accessible 
dans  M  vers  [f,;  f2; ...  ;  fx]  modulo  Q's[q,;  q2;  ...  ;  qt],  avec  X  =  pt  si  t>0,  1  si 
t=0, 

•  lSkSX.  fk()  =  BT(n.m,[g,;  g2; ... ;  gp]),  p,=p+q,,  n,=n+q,,  m^m+ltj^.sjqj, 
avec  r  minimum  tel  que  m2Z|j=r,s](nj-qj), 

•  L=  [gp  g2:  -  ;  gp]@[hq; ... :  hjl  h,],  OD  hj()  -  BT(Oj,[]),  pour  l£j£q=q(. 

On  suppose  dans  la  definition  ci-dessus,  et  on  virifie  par  recurrence,  les 
assertions  suivantes  : 

•  l£r£s. 

•  OiqjSn;  pour  tout  l£i£t. 

L'intuition  est  la  suivante.  S  est  un  chemin  dans  I'arbre  de  Bfihm  d'une 
q-expansion  de  M  indlquee  par  le  vecteur  Q.  L'entier  r  est  la  hauteur  dans 
cat  arbre  k  laquelle  est  tide  la  variable  m.  A  cheque  etape  i  on  s'autorise  q( 
applications  de  la  regie  de  q-expansion  (q-reduction  inverse).  On  suppose 
que  le  long  de  ce  chemin  le  sous-terme  correspondant  est  d6fini. 

Remarques. 

1 .  si  M  et  S  sbnt  donnes.  et  si  S  est  accessible  dans  M  vers  L  modulo  Q, 
alors  L  et  Q  font  calculables  -de  maniere  unique.  Autrement  dit,  L  et  Q  sont 
des  fonctions  recursives  partielles  de  (M,S).  On  ne  peut  pas  esperer  mieux, 
car  nous  verrons  qu’il  est  indecidable  en  general  si  un  terme  est  defini  ou 
non. 

2.  Si  S  est  accessible  dans  M  vers  une  liste  L  de  longueur  X,  alors  pour 
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tout  l£k£X,  pour  tout  n20,  si  S®[(k,  n,  m,  p)]  est  accessible  dans  M,  la 
paire  (m.  p)  est  unique.  Dans  ce  cas  on  tcrit  : 

(m.  p)  =  Accis(M.SJui). 

Remarquons  qu'alors  pour  tout  q20,  on  a  :  (m+q,  p+q)  =  Acc4s(M,S,k,n+q). 


9.3  Technique  de  dibihmlflcatlon. 

• 

Propositioi;  1 .  Soient  M  et  N  deux  termes  fermis,  tels  qu'il  exists  S,  k 
et  n  tels  que  :  Accfcs(M,S,k,n)  *  Accfcs(N,S,k,n).  Alors  M  et  N  sont 

siparables. 

L’idie  de  la  preuva  (“Bfihm  out  technique")  est  relativement  simple,  nous 
laissons  les  ditails  au  lecteur.  Le  chemin  S  represents  un  chemin 
compatible  dans  les  arbres  de  Bdhm  de  M  et  N ,  modulo  certaines 
^-expansions,  qui  mine  k  une  diffirence  irriconciliable,  c'est  k  dire  k  des 
sous-termes  difinis  avec  des  approximations  incompatibles.  La  premi&re 
itape  consiste  k  projeter  M  et  N  le  long  de  S,  pour  faire  apparaitre  des 
instances  de  ces  sous-termes  par  p-riduction  de  respectivement  (M  P,  ... 
P,)  et  (N  P,  ...  P,).  On  se  ramine  ainsi  k  I'un  des  2  cas  : 

a)  [u,v](u  Mj  ...  Mj)  k  diffirencier  de  {u,v)(v  N,  ...  Np,  ce  qui  est  facile 
par  application  finale  de  U  =  [«,,  u2  ... ,  U;JT  et  V  *  [v,,  v2  ... ,  vj]F. 

b)  [u](u  M,  ...  Mj)  A  diffirencier  de  [u](u  N,  ...  Np,  avec  i«*j.  Dans  ce  cas, 
en  supposant  par  example  i>j,  avec  k=i-j,  on  applique  X  *  [u,,  u2  ... ,  Uj]I, 
puis  Y  »  lv,.  v2  ... ,  vk]T,  puis  k  fois  F. 

La  seule  difficulti  qui  se  prisente  est  dans  la  premiire  itape, 
lorsqu'une  variable  apparait  plusieurs  fois  le  long  du  chemin  S  (ou 
simultaniment  sur  S  et  en  tant  que  variable  de  tite  de  I'un  des  deux 
sous-termes  accidis  par  S).  Dans  oe  cas  il  faut  d'abord  substituer  k  cette 
variable  une  expression  du  genre  [u,,  u2  ... ,  v  w](w  u,  ...  u,,),  avec  n 
suffisamment  grand,  ce  qui  permet  de  se  rain«ner  au  cas  0C1  les  variables 
n'apparaissent  qu'une  fois.  L'exemple  qui  suit  est  caractiristique  de  cette 
technique. 
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Example.  Soit  M  =  [u](u  I  (u  1 1))  et  N  =  [u](u  J  (u  u  I».  On  prend  : 

P,=  P,  P2=  [u,.  u2]u2,  P3=  [u,.  ujlu,,  P4*  I,  P5=  {u]T,  P6=  fa,,  u2]F. 

Proposition  2. 

Soient  M  et  N  deux  formes  p-normales  non  ^-convertibles.  II  existe  S,  k 
et  n  tels  que  :  Accis(M,S>k,n)  *  Accis(N,S,k,n). 

Nous  laissons  au  lecteur'  la  preuve  de  cette  proposition.  Le  thdor&me  de 
B6hm  est  maintenant  consequence  directe  des  propositions  1  et  2. 

On  remarque  qu'il  n'est  gudre  possible  de  faire  mieux,  dans  la  mesure  ou 
des  formes  normales  n -convertibles  ne  sont  pas  sdparables.  Par  example, 
considdrez  I  et  A=[u,v](u  v). 

L'importance  du  thdordme  de  Bfihm  est  qu'il  donne  une  condition  trds 
forte  sur  la  construction  de  modules.  Deux  termes  normalisables  non 
p-convertibles  ne  sont  identifiables  dans  un  meddle  non-trivial  que  s'ils 
sont  pq-convertibles.  Ceci  fixe  en  gros  les  trois  degrds  de  libertd  d'un 
moddle  par  rapport  au  moddle  purement  syntaxique  des  arbres  de  B6hm  : 

-  le  moddle  peut  ou  non  verifier  x\ 

-  le  moddle  peut  identifier  plus  ou  moins  les  termes  non  solvables 

•  le  moddle  peut  dtre  plus  ou  moins  riche  en  points  non  ddfinissables. 
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II  -  Typage 


1.  Les  types  conjonctifs. 

1.1  Expressions  de  types 

On  considdre  un  ensemble  ddnombrable  V  de  types  attimiaues.  On  ddfinit 
rdcursivement  I'ensemble  T  des  expressions  de  types  comme  le  plus  petit 
ensemble  contenant  la  constante  on,  les  dldments  de  V,  et  fermd  par  les 
deux  operations  binaires  -» et  a  : 

toeT 

ae  V  =»  ae  T 

a.peT  =»  a-»peT 

a,PeT  =»  otApeT 

Nous  distinguerons  dans  la  suite  trois  niveaux  de  typage,  correspondent 
&  des  restrictions  du  systdme  ci-dessus.  Le  systdme  complet  sera  ddsignd 
par  E,  le  systdme  sans  la  constante  a>  par  D,  et  le  systdme  n'admettant  que 
le  constructeur  -*  par  C.  On  dcrira  done  TC,T0  etTE  pour  les  trois 
ensembles  depressions  de  type. 

type  typexpr  =  Omega 

i  Atom  of  num 
I  Arrow  of  typexpr  *  typexpr 
I  Conj  of  typexpr  *  typexpr;; 


1.2  Typage  des  X-termes 

Un  contexte  est  une  lists  de  types  : 
type  contexte  ==  typexpr  list;; 
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Si  r  est  un  contexts  de  longueur  n,  et  x  la  variable  Ref(m),  avec  msn,  on 
note  rx  pour  la  m-idme  composante  de  r. 

Pour  faciliter  'la  lecture,  on  emploie  la  notation  concrete  [x]M  pour 
('abstraction,  et  on  6crit  de  m4me  rix:a]  pour  a::IV 

On  donne  maintenant  rdcursivement  la  definition  d'une  relation  entre  un 
contexte  r  de  longueur  n,  un  X-terme  MeAn  et  un  type  a,  6crite  r|-E  M  :  a.  et 
dite  iugement  de  typage.  comma  la  plus  petite  relation  |-  vbrifiant  : 

1.  T|-  x  :  rx 

2.  r[x:o]  I-  M  :  p  =>  r  |-  [x]M  :  ct-»p 

3.  r|-  M  :  o-»p  a  r |-  N  :  o  =»  r |-  (M  N)  :  p 

4.  r|-  M  :oaP  T|-M  :a 

5.  T|-M  :«Ap  =*  T|-M  :p 

6.  r|-  M  :  a  a  T|-  M  :  p  =»  r|-  M  :  OAp 

7.  r  |-  M  :  to 

Cet  ensemble  de  regies  concerns  le  systems  complet  E.  On  v6rifie  que  si 
r|-E  M  :  a,  alors  aeTE. 

Expliquons  maintenant  la  restriction  au  systems  0.  On  dit  que  r  est  un 
D-contexte  de  MeAn  ssi  r«T0n.  Le  jugement  r|-D  M  :  a  est  alors  restraint  4 
r  D-contexte  de  M,  et  est  defini  par  les  regies  14  6,  avec  a,peT0.  De  m6me 
que  pour  E,  on  v4rifie  que  si  r  |-0  M  :  a,  alors  acTD.  On  d4finit 
similairement  te  jugement  |-c,  avec  rcTcn,  et  en  se  iimitant  aux  regies 
1,2  et  3. 

On  considers  dgalement  une  variants  D'  de  D,  qui  utilise  tous  les  types 
de  Te,  mais  mqis  dont  le  jugement  de  typage  est  defini  par  les  regies  1  4  6, 
plus  la  r4gle  : 

r.  r|-M:a=*r|-M:© 


Definition.  Soit  M,Nc An.  On  ddfinit  McN  ssi  r  |-  M  :  t  entrains  r j-  N :  t. 
On  4crit  au  besoin  cc.  Cp  at  ce  pour  pr4ciser. 
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La  proposition  suivante  est  vraie  pour  les  systdmes  C,D,  D'  et  E. 

Proposition  1:  monotonia  du  typage. 

La  relation  c  est  une  A-pr6-congruence,  c'est  &  dire  : 

(M  N)c(M'  N) 

MCM'=>  (N  M)c(N  M’) 

McM'=»  [x]M  c[x]M' 

Demonstration.  Immediate,  par  inspection  de  la  definition  du 
jugement  de  typage. 

Corollaira.  Soit  R  une  A-relation,  A(R)  la  A-prE-congruence  engendr6e 
par  R.  Si  R  est  contenue  dans  c,  alors  A(R)  I'est  aussi. 


1.3.  Synthese  de  type  dans  D. 

Tout  terme  est  typable  dans  le  syst6me  E,  puisque  r  |-E  M  :  a.  Nous 
verrons  plus  loin  que  les  termes  solvables  ont  des  types  plus  informatifs 
que  a.  Le  terme  (x  x)  n'est  pas  typable  dans  C.  car  il  n'existe  pas  d'instance 
commune  e  a-»p  et  a.  II  est  typable  dans  D,  puisque  : 

[x:(o-»P)ao]|-0{x  x):p. 

Plus  generalement,  nous  allons  montrer  que  tout  terme  normal  est 
typable  dans  D. 

On  montre  d'abord  un  rEsultat  technique.  On  detinit  un  ordre  d'inclusion 
des  contextes,  comme  suit.  On  postule  que  I'opEration  a  est  associative, 
commutative,  et  idempotente,  que  a  est  un  ElEment  neutre  pour  a,  et  on 
Ecrit  ■  pour  ('Equivalence  correspondante  dans  T.  On  dEfinit  une  relation  £ 
par : 

asp  «»  aApaa. 

II  est  facile  de  vErifier  que  £  dEfinit  un  prEordre  admettant  a  pour  inf,  a 
pour  ElEment  maximum,  et  ■  pour  Equivalence  engendrEe.  On  Etend  £  en  un 
ordre  d'inclusion  des  contextes  de  mEme  longueur:  T£A  ssi  pour  tout  x  on 
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a  :  r„  s  A„.  De  m§me  on  ddfinit  la  conjonction  r  a  A  de  deux  contextes  r  et  A 
de  mSme  longueur,  comme  le  contexte  associant  y  x  le  type  obtenu  k  partir 
de  rxAAx  en  simplifiant  par  les  regies  d'idempotence  et  de  neutrality 
(modulo  commutativity  et  associativity). 

Proposition  2.  Si  r|-D  M  :  a  et  A  S  r,  alors  A  |-D  M  :  a. 

Dymonstration.  Par  ryeurrence  sur  la  preuve  de  r|-D  M  :  o.  Les  dytails 
sont  Iaiss6s  au  lecteur. 

Remarque.  La  proposition  2  est  ygalement  vraie  dans  les  systymes  E,  D' 
et  C.  On  a  ygalement  la  propriyty  : 

Proposition  3.  Si  r|-D.  M  :  a  et  a£  p,  alors  r|-0-  M  :  p. 

Cette  propriyty  est  vraie  aussi  dans  D  avec  la  condition  PeTD. 

Lemme  1.  Tout  terme  normal  est  typable  dans  D. 

D4monstration.  Soit  M«An  normal.  On  montre  qu’il  exists  un 
D-contexte  r  de  longueur  n  et  acTD  tels  que  r|-0  M  :  a.  De  plus  a  peut  ytre 
choisi  arbitrairement  si  M  n'est  pas  une  abstraction.  Par  ryeurrence 
contextuelle. 

-  Si  M-x,  avec  a  arbitrage,  on  prend  r-  [x1:a1]...(x:a]...  [xn:an].  Les  a, 
peuvent  aussi  ytre  choisis  arbitrairement,  par  example  comme  des 
yiyments  de  V. 

-  Si  M-[x]N,  on  a  par  ryeurrence  nx:f]  |-o  N  :  p.  On  en  d4duit  r|-D  M  :  y-»p. 

-  Si  M«(N  P),  on  a  par  ryeurrence  r  |-D  P  :  p.  Pour  a  quelconque,  on  sait 
par  hypothyse  de  ryeurrence  que  A  |-0  N  :  p-»a,  car  M  normal  entrains  que  N 
n'est  pas  une  abstraction.  On  en  dyduit  r  a  a  |-d  M  :  a,  en  utilisant  la 
proposition  2. 

Corollalre.  Tout  terme  normal  est  typable  dans  D',  et  dans  E,  avec  un 
type  dans  T0,  et  un  D*contexte. 
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Remarque.  Les  regies  1.  2  et  3  son t  "dirig6es  par  la  syntaxe”,  alors 
que  les  regies  4,  5,  6  et  7  sont  “structurelles”.  II  est  possible  de 
restreindre  I'utilisation  des  regies  structurelles;  par  example,  nous 
laissons  au  lecteur  la  verification  de  la  proposition  suivante. 

Proposition  4.  Dans  une  preuve  de  r  |-  [x]M  :  a->(3,  on  peut  supposer 
sans  perte  de  generate  que  la  derni6re  regie  employee  est  la  regie  2. 


1.4.  Typage  et  calcul. 

Nous  montrons  que  le  calcul  preserve  le  typage.  Le  lemme  suivant  est 
vrai  indifferemment  pour  les  systemes  C,  D,  D’,  et  E. 

Lemme  2.  ([x]M  N)  c  M[x<~N] 

Demonstration.  Recurrence  sur  la  preuve  du  jugement  de  typage  r  |- 
([x]M  N)  :  a.  Par  cas  suivant  la  dernidre  regie. 

-  r6gle  3.  On  a  done  r  |-  [x]M  :  y-*a  et  r|-  N  :  y.  Par  la  proposition  4.  le 
premier  jugement  provient  de  r[x:-y]  |-  M:a.  En  remplagant  partout  dans  la 
preuve  de  ce  dernier  jugement  les  utilisations  des  hypotheses  x:y  par  des 
preuves  de  N  :  y,  on  obtient  une  preuve  de  r  |-  M[x*-N]  :  a.  (On  laisse  au 
lecteur  les  details  de  cette  recurrence) 

-  regies  4,5  et  6  :  pas  de  problems 

-  de  meme  pour  les  regies  7  (pour  E)  et  7’  (pour  D'). 

Corollaire.  M4  N=» McN 

Par  le  corollaire  de  la  proposition  1. 

Remarquons  qu'il  en  est  de  mime  pour  la  ^-reduction  ■* . 

La  reciproque  du  lemme  2  n'est  vraie  en  general  que  dans  E,  e  cause  des 
combinateurs  constants  tels  que  K,  qui  peuvent  faire  disparaftre  par 
calcul  des  sous-termes  non  typables. 
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Lemma  3.  M[x«-N]  =E  ([x]M  N). 

Demonstration.  On  donna  I'id6e.  Soit  r|-  Mfx«-N]  :  a.  Dans  la  preuve  de 
ce  jugement,  soient  r|-  N  :  Yi  ...  r  |-  N  :  tous  las  jugements  employes  aux 
differantas  occurrences  de  x  dans  M.  Soit  y  =  y,  a...  a  y„  si  n>0,  y=  01  si  n-0. 
On  a  |-  M  :  a.  d'ou  r|-  [x]M  :  y-*a,  et  r|-  N  :  y.  cfoii  finalement  F|-  ([x]M 
N):o. 

Remarque.  Pour  exploiter  formellement  las  preuves  des  iemmes  2  et 
3,  il  faut  utiliser  IT  |-  N+n  :  Yj  .  obtenu  par  iteration  de  la  propriete  : 

r  |-  M  :  a  =»  r  [x:  tj  |-  M*  :  a. 

Corollaire  1.MO  N  =*NcgM 

Corollaire  2.  M  => '  [x]N  =»  M  a  d'autres  E-types  que  a. 

Corollaire  3.  Si  M  est  normalisable,  alors  r  |*E  M  :  t,  avec  t€TD  at  . 
reTD". 

Nous  allons  maintenant  montrer  que  si  de  plus  toutes  las  reductions 
issues  da  M  terminent,  c'est  4  dire  si  M  est  fortement  normalisable.  alors 
M  est  typable  dans  D. 


1.5.  Typaga  das  tarmes  fortement  normalisables. 

On  montre  tfabord  un  lemma  qui  raffine  la  lemma  3. 

Lemma  4.  Si  N  est  D-typabie,  alors  M[x«-N]  cq  ([xJM  N). 
Demonstration.  Comma  dans  la  preuve  ci-dessus.  Soit  r  |-  N  :  p.  On 
prand  Y“Yi  a  ...  a  yn  si  n>0,  Y=  P  8i  n-0. 

Remarque.  Tout  sous-tarme  d'un  terms  D-typable  Cast  aussi.  On 
obtiant  done  an  corollaire  la  lemma  3  pour  la  systems  D,  dans  la  cas  du 
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X-l-calcul. 

Exercice.  Le  lemme  4  est  facile  pour  O',  en  prenant  y=a>  dans  tous  les 
cas.  Montrer  le  lemme  4  dans  le  cas  du  systems  C,  en  utilisant  le  lemme  du 
typage  principal  ci-dessous. 

Lemme  5.  Si  M  est  fortement  normalisable,  alors  M  est  D-typable. 

Demonstration.  Par  recurrence  sur  la  paire  (£(M),e(M)),  ou  £(M)  est  la 
longueur  de  la  plus  longue  derivation  issue  de  M,  et  6(M)  est  la  taille  de  M. 

Si  e(M)-0,  M  est  normal,  et  est  D-typable  par  le  lemme  1.  Sinon,  M 
possede  un  sous-terme  reducible,  soit  ([x]N  P).  Comme  £(P)£E(M)  et 
e(P)<6(M),  on  a  P  D-typable  par  hypothdse  de  recurrence.  Soit  M'  le  terme 
issu  de  M  en  reduisant  ce  radical.  Comme  £(M')<£(M),  on  a  M'  D  iypable  par 
hypothese  de  recurrence.  M  est  done  D-typable,  par  le  lemme  4  et  le 
corollaire  de  la  proposition  1. 

Remarque.  Un  terme  peut  avoir  tous  ses  sous-termes  normalisables, 
sans  etre  pour  autant  fortement  normalisable.  Par  exemple,  consid6rez 

M  -  ([x]  ([y]z  (x  x))  A),  normalisable  en  z,  mais  non  fortement 
normalisable  car  reducible  k  ([y]z  Cl). 

On  a  bien  [z  :  a]  |-E  M  :  a,  avec  oe  T0  (corollaire  du  lemme  3),  mais  M  n'est 
pourtant  pas  typable  dans  0. 


Probieme. 

Le  lemme  i  n'est  pas  vrai  pour  le  systdme  C,  puisque  A  n'est  pas 
C-typable.  Est-il  possible  d'enrichir  C  en  C',  avec  la  rftgle  7',  pour  obtenir 
le  lemme  1,  et  done  le  lemme  5,  sans  pour  autant  avoir  de  types 
conjonctifs?  Montrer  que  les  types  o  et  <o-»a  suffisent.  Retrouver  les 
types  de  Wadsworth. 
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2.  Interpretation  des  types. 

2.1.  Parties  o-saturdes 

Soit  A  Fensemble  des  X-termes.  Soit  <t>  une  partie  quelconque  de  A. 

Une  partie  A  de  A  est  dite  0>-satur6e  ssi  pour  tous  termes  M,  N,,  ...  ,  Nn 
de  a  on  a,  pour  tout  N  dans  <1> : 

(M[x*-N]  N,  N2  ...  N„)  e  A  =>  (£x]M  N  N,  N2 ...  Nn)  e  A. 

Nous  allons  maintenant  interpreter  ies  types  comme  des  parties 
<X>-satur6es  de  X-termes.  L'op6rateur  a  sera  interprdtd  comme 
I'intersection.  II  est  clair  que  si  A  et  B  sont  o-saturdes,  alors  AnB  I'est 
aussi.  Donnons  maintenant  ('interpretation  de  I’opdrateur 

Definition.  Soient  A  et  B  des  parties  de  A.  On  ddfinit  : 

A-*B  =  (M  |  VN  e  A  (M  N)  a  B}. 

Lemme  6.  Si  B  est  4>-satur6e,  A-»B  Test  aussi  pour  tout  A. 

Demonstration.  Soit  (M[x«-N]  N,  N2  ...  Nn)  e  A-»B,  avec  N  e  <t>.  Soit  P  e 
A.  On  a  (M[x«-N)  N,  N2  ...  N„P)sB  par  definition  de  A-»B,  et  done  egalement 
([x]M  N  N,  N2  ...  Nn  P)  e  B  puisque  B  est  <P-saturde.  On  a  done,  par  definition 
de  A-»B  :  ([x]M  N  N,  N2  ...  Nn)  e  A-»B. 

2.2.  ^-interpretations 

Definition.  Soit  4>  une  partie  quelconque  de  A.  On  appeiie 
D-intaroretation  relative  k  <t>  touts  application  I  qui  associe  *  tout  type 
atomique  a  une  partie  $-saturde  1(a).  On  dtend  I  k  tous  Ies  types,  par : 

KoaP)  -  l(a)r>l(P) 
l(a-»P)  -  l(a)-*l(P). 
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On  definit  de  m§me  une  D'-interpr6tation,  en  choisissant  pour  l(co)une 
partie  4>-satur6e  telle  que  1(a)  c  1(a))  pour  tout  type  a. 

Enfin,  une  E-interpretation  est  une  D-interpretation  relative  k  o=a, 
v6rifiant  de  plus  :  1(a))  -  A. 

On  obtient,  dans  les  syst6mes  D,  D',  et  E,  pour  toute  interpretation 
relative  k  <t> : 

Corollaire  du  lemme  6.  Pour  tout  type  t,  l(i)  est  <I>-satur6. 

Lemme  de  coherence  dans  D.  Soit  I  une  D-interpr6tation  relative  k  <t> 
telle  que  l(t) c pour  tout  type  teT0.  Soit  MeAn,  et  r  un  D-contexte  [x, :a, ; 
...  ;  xn:an].  Soit  N^lfa,), ... ,  Nnel(a„).  Alors  pour  tout  typage  r  |-D  M  :  a.  on  a 
M[x,«-N,] ...  [xn<— NJe  1(a). 

Demonstration.  Par  recurrence  sur  la  preuve  du  typage.  Par  cas 
suivant  la  derni&re  regie  du  typage  r  |-D  M  :  a  : 

1 .  M  -  Xj,  a  =  a,  tfou  Mfx^N,] ...  [xn«-Nn]  -  Nje  1(a), 

2.  M  -  [x]M\  a  =  p-»y,  r[x:p]  |-0  M'  :  y,  pour  tout  Ne  1(f))  on  a  par  hypoth6se 
de  recurrence  M'lx^N,]  ...  [x„«-Nn][x«-N]e  l(y).  Comme  l(y)  est  <t>-satur6,  et 
que  Nc  1(f))  c  <t>  on  a  (Mfx^N,)  ...  [xn«-N„]  N)el(K).  Par  definition  de  1(a)  - 
l(P)-»l(y).  on  a  done  Mlx^N,] ...  [x^NJe  1(a). 

3.  M  -  (M,  Mz).  r|-0  M2  :  p,  r|»D  M,  :  P-»a,  par  hypothese  de  recurrence  on 

a  ...  [Xn*-N,je  l(P)-+l(a)  et  Mjfx^N,] ...  [xn<-Nn]e  l(p),  d'ou  M[x,«-N,] 

...  (x^NJeKa). 

4.  5  et  6.  Evident,  car  I(Pay)  ■  l(P)nl(Y). 

Lemme  de  coherence  dans  D'.  Soit  I  une  D’-interpretation  relative  k 
<P  telle  que  l(t)c*  pour  tout  type  t«TE.  Soit  M«An,  et  r  un  E-contexte  [x, :a, ; 

... ;  xn:a„].  Soit  NjeUa,) .  Nnel(an).  Alors  pour  tout  typage  r  |-0.  M  :  a,  on  a 

M[x,4-Nt] ...  [x^NJe  1(a). 
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Demonstration.  Comme  ci-dessus,  avec  en  plus  le  cas  7'  : 

7*.  o  =  <o,  r  |-0.  M  :  p,  et  par  hypothfcse  ds  recurrence  on  a  M[x,«-N,]  ... 
Ixn*-Nn]el(p)cl(o)). 

Lemme  de  coherence  dens  E.  Soit  I  une  E-interpretation.  Soit  Ms  An, 

etr  un  E-contexte  [x,:a,;  ...  ;  xn:an3.  Soit  N^Ua,) .  N„s  l(an).  Alors  pour 

tout  typage  r  |-E  M  :  a,  on  a  Mfx^N,] ...  [xn»-Nn]€  1(a). 

Demonstration.  Comme  ci-dessus,  avec  en  plus  le  cas  7,  trivial  car 
1(g))  -  A. 


2.3.  4>-adequation 

Definition.  Soit  y  et  e  des  parties  quelconques  de  A. 

On  dit  que  le  couple  (¥.0)  est  <b-adequat  ssi  y  est  <b-satur6,  ecf,  et : 

A1 .  Pour  tous  Ms  0  et  Ns  y ,  on  a  (M  N)e  0 

A2.  Si  pour  tout  Ns  0  on  a  (M  N)«y,  alors  Me¥. 

Soit  (y.0)  un  couple  <t>-adequat.  Soit  E(y,0)  I'ensemble  des  parties 
<b-satur6es  de  y  qui  contiennent  0.  On  a  y«  E(y,0),  et  E(y,0)  est  ferm6  par 
intersection.  Montrons  qu'il  est  dgalement  ferm6  par  ('operation 

Lemme  7.  Si  X,Ye  E(y,0),  alors  X-*Y«  E(y,0). 

Demonstration.  Soit  X,Y«E(y,0),  Z  -  X-+Y.  On  doit  montrer  : 

•  a.  Z  c  y.  En  effet,  soit  MeZ.  Conskterons  Nc0  quelconque.  XcE(y,0) 
entrains  0  c  X,  et  done  NeX.  On  obtient  done,  par  definition  de  I'operation 

(M  N)«Y  cy.  Par  la  condition  A2  ci-dessus,  on  a  bien  Me  y. 

-  b.  Z  est  <b-sature.  Par  le  lemme  6,  car  Y  est  4>-satur6. 

-  c.  0  c  Z.  En  effet,  soit  Mc0.  Pour  tout  NcX  c  y,  on  a  par  la  condition 
A1  ci-dessus  (M  N)e  0  c  Y,  et  done  Me  Z  par  definition  de 
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Corollaire  1.  Soit  (S',©)  un  couple  *-ad6quat,  I  une  D-interpr6tation 
relative  k  o>  telle  que  l(a)eEpP,©)  pour  tout  type  atomique  a.  Alors 
l(o)€  EOF,©)  pour  tout  ae  T0. 

Corollaire  2.  Soit  (4*,©)  un  couple  $-ad6quat,  I  une  D*-interpr6tation 
relative  &  O  telle  que  l(a)eECP,0)  pour  tout  type  atomique  a,  et  I(m)sE(H',©). 
Alors  l(a)cECF,©)  pour  tout  ae  TE. 

Corollaire  3.  Soit  (S',©)  un  couple  *-ad6quat,  I  une  E-interpr6tation 
telle  queka^ECP,©)  pour  tout  type  atomique  a.  Alors  l(a)e  EOP,©)  pour  tout 
ae  T0. 

Remarque.  AeECP,©)  n’est  vrai  que  lorsque  H^A,  cas  limits  de  peu 
d'int6r§t,  car  on  cherche  A  utiliser  S'  et©  comme  bornes  des  termes  typ6s, 
i.e.  ©cl(x)c4'. 


2.4.  Applications 

Dans  les  deux  applications  qui  suivent,  on  prendra  pour  ©  le  plus  petit 
ensemble  ©CP)  contenant  les  variables,  et  ferm6  par  la  condition  A1 
ci-dessus,  c’est-4-dire  Pensemble  des  termes  (x  N1  ...  Np),  avec  p*o. 

2.4.1.  Dans  D  ou  D*  :  Fortement  normalisables 

Supposons  que  S'  soit  une  partie  <P-satur4e  de  0,  et  soit  ©  tel  que  le 
couple  CP.©)  soit  4>-ad6quat.  Soit  I  une  D-interpr6tation  relative  k  0,  telle 
que  1(a)  *  S'  pour  tout  type  atomique  a.  Par  le  corollaire  1  ci-dessus,  on 
obtient  0  c  l(t)  c  S'  c  pour  tout  type  tsT0.  On  peut  utiliser  le  lemme  de 
D-coh6rence.  Soit  M«An.  Si  ©  -  ©(SO,  toute  variable  est  dans  I(t)  pour  tout 
type  t«Td.  On  obtient  done  que  r  |-D  M  :  a  entrafne  : 

M  -  M[x,«-x,] ...  [x^xj*  1(a)  c  S'. 


Example. 

On  prend  O-S'-I'ensemble  N*  des  termes  fortement  normalisables.  On 
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montre  que  le  couple  (N\0(N*))  est  N*-adEquat  (Exercice).  On  obtient  la 
rEciproque  du  lemma  5.  D’oCi  : 

ThEorEme  1.  M  est  fortement  normalisable  ssi  M  est  D-typable. 

Dans  D',  la  mEme  construction  est  possible.  On  prend  l(«a>*¥,  et  le  mEme 
raisonnement,  en  utilisant  le  lemme  de  D'-cohErence,  montre  que  M 
D'-typable  entraTne  M«¥.  Le  mime  example  montre  done  que  le  typage  dans 
D'  est  Equivalent  au  typage  dans  D.  On  a  juste  un  peu  de  flexibility 
supplEmentaire,  avec  des  types  tels  que  ©-ko,  qui  est  le  type  des  termes 
qui  donnent  un  fortement  normalisable  quand  appliquE  E  un  fortement 
normalisable. 

2.4.2.  Dans  E  :  normalisables 

On  prend  «-A,  et  ¥  I'ensemble  N  des  termes  normalisables.  On  montre 
que  le  couple  (N,6(N))  est  A-adEquat  (Exercice).  Soit  I  une  E-interprEtation. 
telle  que  1(a) -N  pour  tout  type  atomique  a.  Par  le  corollaire  3  ci-dessus, 
on  obtient  0  c  l(x) c ¥  pour  tout  l.  >e  x«T0.  Soit  McA^,  tel  que  : 

[x,:a,; ...  ;  xn:a„]  |-E  M  :  a.  avec  u,  a, . an«T0  .  Puisque  0  -  9(¥).  toute 

variable  est  dans  I(t)  pour  tout  type  xcT0,  et  done  x,«l(a,) . xne  l(an).  On 

peut  utiliser  le  lemme  de  E-cohErence,  (fou  : 

M  .  M[x,<-x,] ...  {xn<-x„)«l(a)  c¥. 

On  obtient  done  la  rEciproque  du  corollaire  3  du  lemme  3  : 

ThEorEme  2.  M  est  normalisable  ssi  r|-E  M  :  x,  avec  xcTD  et  r«TDn. 

Corollaire.  La  propriEtE  d'Etre  E-typable  sans  oi  est  indEcidable. 

Exercice.  Utiliser  pour  ¥  I'ensemble  des  termes  normalisables  par 
dErivation  normale.  En  dEduire  une  autre  preuve  du  fait  qu'un  terms  est 
normalisable  ssi  il  est  normalisable  par  dErivation  normale. 

ProblEme.  Trouver  d'autres  interpolations  intEressantes. 
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Remarque.  Cette  section  est  inspire  des  notes  de  cours  de  J.L.  Krivine 
“Lambda-calcul  typ§”.  Notre  traitement  a  I'avantage  d'etre  uniforme  pour 
les  deux  applications  ci-dessus.  Le  systems  E  est  nomrrte  DO  dans  Krivine. 

Aide-memoire.  La  ntethode  permet  d'encadrer  I'interprdtation  d'un 
type  x  entre  les  ensembles  9  et  y.  Dans  les  deux  applications,  on  obtient  : 

8  c  l(t)  c  y  c  O  c  A. 

Dans D on prend y  =  d>  =  N* , dans  Eon prend H*  =  N  et <t>  =  A. 

Remarque.  Cette  methods  impose  l(x)*0  pour  tout  type  x.  En  effet,  si  on 
avait  l(t)-0  pour  un  x,  cela  imposerait  6-0,  et  done  y-A  par  la  condition 
A2.  On  n'aurait  dans  ce  cas  limits  aucune  information  sur  ('interpretation  : 
0  £  l(x)  c  A  pour  tout  x. 
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3.  Typage  polymorph*.  ,, 

3.1.  Typas  principaux. 

Definition.  Morphiamaa  da  typaa.  Una  application  o  da  T  dans  T  ast 
un  morohisme  de  tvoas  ssi: 
o(ocaP)  =  o(o)ao(P) 
o(a->P)  *  o(o)-mj(P) 

O((0)  =  CD. 

On  6tend  naturellement  une  telle  application  &  un  contexte. 

Propoaition  5.  Si  r  |-  M  :  a.  alors  pour  tout  morphiama  de  types  o,  on  a 
aussi  o(T)  |-  M  :  o(a). 

Demonstration.  Facile,  par  inspection  de  la  relation  de  typage.  La 
rSsultat  ast  vrai  dans  tous  las  syst&mes  considers. 

Definitions.  On  dit  qua  le  typage  r  |-  M  :  o  eat  Plus  general  qua  la 
typage  A  |-  M  :  0  ssi  il  exists  un  morphisme  da  typas  o  tel  que  A-o(T)  at 
P«o(a).  On  dit  qua  le  typage  r  |-  M  :  a  ast  principal  ssi  a  est  plus  general 
qua  tout  type  de  M  dans  le  contexte  r. 

Un  terme  ne  poss&de  pas  an  general  da  D-typage  principal.  Par  example, 
le  combinateur  I  possSde  dans  le  contexte  vide  tous  las  types  a,  -»o,a 
oj-kxj  a  ...  AO„-»on,  pour  n  arbitraire,  at  cas  types  na  sont  pas  an  general 
unifiablas  an  o-m t.  Nous  allons  voir  que  la  resultat  ast  par  contra  vrai  dans 
la  discipline. C. 


3.2.  SynthAs*  da  type  dans  C. 

On  precede  comma  dans  la  synthes*  da  type  etudide  dans  la  prauve  du 
lemma  1.  La  difference  principal*  ast  qua  I'operation  a  lors  da  la 
conjonction  das  contaxtes  ast  ramplacea  par  I’unification  das  schemas  da 
type  correspondent.  Catta  operation  paut  echouar,  ou  reutsir  avac  un 
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unificateur  principal. 

Definition.  Soit  MeAn,  et  r  un  C-contexte  de  M.  On  dit  qua  M  est 
C-tvnablft  modulo  r  ssi  il  existe  un  morphisme  de  types  a  et  un  type  t  tels 
que  o(T)  |-c  M  :  t. 

Lemme  de  typage  principal  dans  C. 

Soit  MeAn,  et  r  un  C-contexte  de  M.  Si  M  est  C-typable  modulo  r,  alors  il 
existe  un  C-typage  principal  de  M  modulo  r. 

Demonstration. 

On  precede  comma  plus  haut,  par  recurrence  contextuelle  sur  M. 

-  Si  M-x,  on  ar|-c  M  :  rx 

-  Si  M-[x]N,  on  choisit  a  nouvelle  variable  de  type.  Par  recurrence,  il  y  a 
deux  cas.  Si  o(nx:a])  |-c  N  :  0,  on  en  d6duit  o(ni*c  M  '■  o(a)-»p.  Sinon,  c'est  k 
dire  si  N  n'est  pas  C-typable  modulo  r[x:a],  alors  M  n'est  pas  C-typable 
modulo  r. 

-  Si  M-(N  P),  supposons  o(r)  |-c  P  :  p,  et  p(o(T))  l*c  N  :  y.  Soit  a  une 
nouvelle  variable  de  type.  Si  p(P)  et  y-»a  ne  sont  pas  unifiables,  M  n'est  pas 
typable.  Sinon,  soit  4  leur  unificateur  principal.  On  en  deduit  4(p(oOO))  I'c  M 
:  4(a).  Dans  tous  les  autres  cas  M  n'est  pas  C-typable  modulo  r. 

Nous  laissons  la  preuve  de  la  principality  de  la  construction  au  lecteur. 

Example.  [x][y](x  (y  x))  est  C-typable  dans  le  contexts  vide,  de  type 
principal  (a-»P)-»(((a~»P)->a)->P),  avec  a  et  p  deux  variables  de  type. 

Remarque.  Pour  tout  terms  M,  on  obtient  un  typage  principal  de  M, 
loraque  M  est  C-typable,  en  prenant  pour  r  le  contexts  qui  associe  k  toute 
variable  une  variable  de  type  distincte. 

Probltme.  Montrer  que  le  calcul  du  type  principal  (Tun  X-terme  M  dans 
C  eat  linaaire  en  la  taille  de  M. 

Remarque.  Le  langage  des  C-types  n'ayant  qu'un  seul  symbole  de 


84 


Calcu  lability 


fonction,  la  seuie  cause  de  non-unification  de  deux  schemas  de  types  est 
le  test  (foccurrence,  qui  refuse  Cunification  d'une  variable  de  type  a  avec 
un  schema  x-vi  contenant  une  occurrence  de  a.  Si  on  relaxe  cette 
restriction,  ce  qui'  revient  &  autoriser  des  types  rScursifs  tets  que  a=a-*a, 
alors  tout  terme  devient  typable  trivialement. 

Remarque.  X-termes  types. 

Dans  le  systdme  C,  un  typage  est  entiSrement  determine  par  une 
declaration  de  type  aux  variables.  Le  contexts  donne  le  type  des  variables 
libres.  Pour  les  variables  liees,  il  est  usual  de  declarer  leur  type  dans  un 
champ  supplemental  de  I'operateur  d'abstraction. 

II  fact  fairs  attention  toutefois  &  distinguer  les  X-termes  avec  types 
des  X-termes  types.  Par  example,  il  est  gindralement  admis  que  les 
X-termes  avec  types  admettent  la  propriete  de  Church-Rosser,  en  utilisant 
le  fait  que  les  termes  purs  I'admettent,  et  que  ie  calcul  preserve  les  types. 
Mais  ce  raisonnement  n'est  valabie  que  pour  les  termes  qui  ont 
effectivement  un  type.  Mais  il  est  faux  par  example  que  le  pq-calcul 
posstde  la  propriety  de  Church-Rosser  sur  les  termes  avec  types,  comma 
le  montre  : 

Contre-exemple  (Nederpelt).  Le  terme  [x:ot]([y:PJy  x)  se  p-rSduit  eh 
[x:o]x  et  se  q-rdduit  en  [y:PJy. 


9.3.  Polymorphisms  simple. 

A  parti r  de  maintenant,  on  donne  une  forme  plus  lisible  au  radical 
([x]M  N)  en  fScrivant  Jfll  x-N  in  M. 

\ 

ConstdSrons  le  terme  lil  i»[xjx  la  (i  i).  Ce  terme  n'est  pas  typable  dans 
C.  L’aJgorithme  ci-dessus  ie  rejette,  car  les  schemas  de  types  a  et  («-»p) 
ne  sont  pas  unHiables.  Pourtant  la  forme  rtdutte  ([x]x  (x]x)  de  ce  radical 
est  typable.  II  est  facile  de  comprendre  la  plus  grande  libertt  obtenue  en 
dupliquant  le  sous-terme  (x]x  :  les  deux  occurrences  peuvent  ttre  typdes 
avec  deux  ooples  a,-»  a,  et  04 -♦  04  de  son  type  principal  o->a.  Du  point  ds 
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vue  du  typage  dans  la  discipline  D,  il  est  facile  d'expliquer  comment 
obtenir  I'effet  de  cette  duplication,  sans  avoir  k  effectuer  la  conversion. 
Le  typage  dans  un  contexts  r  du  radical  ([x]M  N)  aboutit  d'une  part  k  : 

I- 1-  N  :  t\  avec  r-  o(T) 

et  d'autre  part  &  : 

r'[x  :  t,  a  tj  a  ...  a  xn])  |-  M  :  x\  avec  1""-  p(T).  Plutbt  que  de  chercher  k 
unifier  les  ^  comme  plus  haut,  on  transforms  au  contraire  t1  en  f,  a  x'2  a  ... 
ax’,,,  ou  les  t’|  sont  des  copies  de  t ’,  mais  avec  un  renommage  des  variables 
de  type  locales  k  x '  (c’est  &  dire  n'apparaissant  pas  dans  r).  On  peut 
maintenant  chercher  &  r6concilier  les  deux  parties  de  ('application  en 
unifiant  t,  a  tj  a  ...  a  xn  et  V,  a  x'2  a  ...  a  t*n.  Autrement  dit,  on  unifie 
s6par6ment  t,  et  t*.  tj  et  x\  ....  t„  et  f,  mais  en  oubliant  entre  chaque 
unification  les  substitutions  aux  variables  locales  de  t“.  C'est-S-dire,  si  a, 

,  Oj . a*  sont  les  variables  locales  de  t\  on  considers  que  x’  est  g6n6rique 

en  les  a,,  i.e.  V-  Va,  otj ...  o^.x.  L'unification  de  t,  et  t  ne  garde  pas  trace  des 
substitutions  aux  c^. 

Cette  m6thode  est  facilement  impl6mentable.  II  suffit  de  garder 
('information,  pour  chaque  composante  du  contexte,  de  quelles  sont  ses 
variables  locales.  On  obtient  I'aigorithme  qui  suit.  On  appelle  Cv  la 
discipline  correspondante  de  typage,  intermediate  entre  C  et  D. 

Algorlthme  de  synthase  de  type  dans  Cv. 

Soit  M  un  terme  k  typer  dans  un  contexte  r.  On  dit  que  M  est  CV-typable 
modulo  r  si  I'aigorithme  rdussit  en  retournant  une  substitution  o  et  un 
type  x,  ce  qu'on  ecrit  ofT)  |-  M  :  t.  Sinon  I'aigorithme  dchoue. 

On  proctde  par  recurrence  contextuelle  sur  M. 

-  Si  M-x,  avec  r^Va,  a, ...  c^.x,  on  a  r|-  M  :  x\  avec  V  obtenu  &  partir  de  x 
en  substituent  k  nouvelles  variables  aux  ctj. 

>  Si  M-(x]N,  on  choiait  a  nouvelle  variable  de  type.  Par  recurrence,  il  y  a 
deux  cas.  Si  o(nx:a])  |-  N  :  x,  on  en  deduit  o(T)  I-  M  :  o(a)-»x.  Sinon,  c'est  k 
dire  si  N  n’est  pas  typable  modulo  F[x:a],  alors  I'aigorithme  echoue.  . 
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-  Si  M»(N  P),  supposons  o(T)  |-  P  :  x.  II  y  a  deux  cas. 

-  Si  N-[x]N',  soient  a,  04 ...  les  variables  de  x  non  libres  dans 
o(0.  et  s-Va,  c&2  «.  a^.x.  Si  o(T[x:i))  |-  N' :  x\  on  en  dftduit  0(0 |-  M  :  f .  Sinon 
I'algorithme  ftchoue. 

-  Sinon,  soit  p(o(0)  |-  N  :  x*.  Soit  a  une  nouveiie  variable  de  type. 
Si  p(x)  et  x’-»a  ne  sont  pas  unifiables,  I'algorithme  ftchoue.  Sinon,  soit  4 
leur  unificateur  principal.  On  en  dftduit  t(p(o(0))  |-  M  :  4(a).  Sinon, 
I'algorithme  ftchoue. 

Thftorftme  Si  M  est  typable  dans  la  discipline  CV,  alors  : 

-  M  est  D-typable 

-  N  est  C-typable,  ou  N  est  obtenu  ft  partir  de  M  par  rftduction  parallftle 
de  tous  ses  radicaux. 

Problftme  (Kanellakis-Mitchell). 

1.  Montrer  que  I'algorithme  ci-dessus  est  exponentiel  en  la  profondeur 
d'imbrication  des  radicaux  dans  le  terme  considftrft. 

2.  Investiger  la  structure  de  graphes  avec  pointeurs  sous-jacente  au 
problftme  du  typage  dans  la  discipline  CV. 

3.  Montrer  que  ce  problftme  est  difficile  en  espace  polynomial  (‘P-spaqe 
hard”)  en  lui  rftduisant  le  problftme  QBF  (formulas  boolftennes  quantififtes). 

Problftme.  Typage  polymorphe  pareeseux.  La  discipline  CV 
correspond  ft  simuler  une  fttape  de  rftduction  en  parallftle,  avec  I'appel  par 
valeur,  puis  de  typer  dans  C.  I)  est  possible  d'fttendre  ft  une  discipline 
analogue,  mais  employant  Evaluation  normale.  La  discipline  CVw  s'obtient 
en  ajoutant  la  constants  a  au  langage  Tc,  et  en  remplagant  les  cas  d'ftchec 
par  la  rftponse  Nco.  Montrer  que  M  est  de  type  principal  x  dans  la  discipline 
CV«a,  avec  x  sans  occurrence_.de  u,  ssi  N  est  C*typable,  ou  N  est  obtenu  ft 
partir  de  M  par  rftduction  parallftle  de  tous  ses  radicaux.  La  discipline  CVa 
permet  ainsi  de  typer  des  termes  normalisables,  mais  non  fortement 
normalisables,  tels  que  Kin. 


Problftme.  Typage  polymorphe  Itftrft.  On  eut  gftnftraliser  la 

discipline  CV  en  une  discipline  CV2,  qui  simule  deux  stapes  de  rftduction 
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parall4le.  On  obtient  ainsi  une  hiyrarchie  de  disciplines  CVn,  avec  n-1,2,... 
De  mdme  pour  CV<on.  La  discipline  limite  CVco*  permet  ainsi  de  typer  tous 
les  termes  admettant  une  forme  normale  C-typable.  Investiger  ces 
diffSrents  syst§mes,  la  decidability  et  6ventuellement  la  complexity  du 
typage. 


3.4.  Extension  aux  types  produits. 

II  est  facile  d'ajouter  un  produit  de  types  x,  et  un  constructeur  de 
paires  (M,N),  avec  ses  opyrateurs  de  projection  Isi  et  snd. 

Probiyme  (Kiop).  Dyvelopper  le  X-calcul  pur  avec  paires  et  regies  de 
projection  :  ffii(x.y)  Ox  it, 

SmKx.y)  O  y  x2 

Montrer  Church-Rosser.  Montrer  que  CR  ychoue  avec  la  rfcgle  de  paire 
surjective  : 

(lsl(x),  an£L(x))  o  x  SP. 

La  discipline  Cx  est  obtenue  4  partir  de  C  en  ajoutant  les  regies  : 

T|-  M  :  a  a  r |-  N  :  p  =*  r|-(M,N):axP 

r |-  M  :  a x p  =»  r|-  fsl(M)  :  a 

r|-M:axp  =>  r|-snd(M)  :  p 

Finalement,  il  n'y  a  pas  de  difficulty  d'ytendre  le  typage  Cv  en  un  typage 
CxV. 

Probl4me.  Dyvelopper  le  formalisme  de  X-calcul  typy.  Dans  C,  puis  Cx, 
avec  les  diffyrentes  combinaisons  de  rdgles  de  calcul.  Montrer  CR,  etc. 

Application.  La  discipline  CxV  est  celle  qui  est  utilisye  dans  le 
langage  ML.  En  fait,  le  noyau  de  ML  peut  se  dycrire  4  partir  de  I'ajout  au 
syst4me  des  opyrateurs  de  conditionnelle  et  de  point-fixe,  ainsi  que  de 
types  pry-dyfinis. 
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3.5.  Extension  au  langage  ML. 

On  enrichit  la  calcul  CxV  par  des  constantes,  dont  les  types, 
eventuellement  polymorphes,  bontiennent  des  types  atomiques  constants 
tels  que  bool  et  int.  Par  example  : 

i£  :  Va.  bool  xaxa-ta 
true  :  bool  false  :  bool 
H  :  int  1  :  int  ...  -1  :  int  ... 

-  :  int  x  int  -*  bool 

+  :  int  x  int  -»  int  -  :  int  x  int  — *•  int  *  :  int  x  int  -♦  int 

Le  langage  obtenu,  appelons-le  ML',  est  complete  par  une  fonctionnelle 
de  point  fixe  : 

Y  :  Va.  (a  -»  a)  -*  a 

Finalement.  on  introduit  une  abrdviation  pour  les  definitions  recursives 
par  : 

Jfil  ifiC  x-M  ia  N  •*  lfii  x»X([*JM)  in  N. 

On  obtient  ainsi  un  langage  fonctionnei  polymorphe  de  base,  appeie  ML. 

Remarque.  ML  utilise  revaluation  par  valeur,  ce  qui  consist©  &  calculer 
les  radicaux  de  I'interieur  vers  I'exterieur,  par  opposition  e  la  regie 
devaluation  normals.  La  regie  de  typage  du  let  est  d'ailleurs  coherente 
avec  ce  regime  devaluation.  Par  contre,  la  regie  5  nest  pas  utilises,  cest 
e  dire  qu'on  n©  calcule  pas  e  I'interieur  des  abstractions.  Les  termes  de  la 
forme  [x]M  sont  consid6r6s  comma  des  formes  normales,  appeiees 
fermetures. 

Les  regies  de  calcul  de  la  conditionnelle  sont: 

U(iiua,x,y)  O  x 
ti(iaiaa.x.y)  y 

mais  Id  egalement,  x  et  y  ne  sont  pas  evalues  e  I'interieur  du  it-  Les 
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regies  de  calcul  de  I'arithm6tique  correspondent  aux  tables  d'operations. 
Finalement,  on  donne  une  r&gle  de  calcul  du  combinateur  de  point-fixe  X. 
telle  que  : 

1(f)  «>  f(l(f))- 


Example.  Verifier  que  fact  n  -  iI{n-Q.,l1n*<act(n-D)  in.  factQJ 

s'6value  bien  en  £. 


Problems.  ML+.  Au  lieu  de  definir  la  recursion  k  partir  de  l'op6rateur  Y., 
on  peut  se  donner  une  construction  supplemental  p,  telle  que  les 
diffdrentes  occurrences  d'une  variable  d§finie  r6cursivement  puissent  6tre 
typdes  par  des  instanciations  s6par6es  d'un  type  polymorphe.  Cette 
discipline  CpV  permet  de  typer  par  example  le  terme  suivant,  qui  n'est  pas 
typable  avec  1  dans  la  discipline  Cv  : 
lal  lfi£  f  -  [x](f  (K  x)). 

Milner  a  ddmontrd  I'existence  d'un  type  principal  dans  cette  discipline. 
Mais  le  problems  de  la  decidability  de  I'existence  d'un  type  est  encore  un 
problems  ouvert.  Kfoury  a  montr6  que  cette  discipline  permet  de  d6finir 
une  classe  de  fonctions  r6cursives  plus  riche  que  cedes  d6finissables  dans 
la  discipline  CV. 
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3.6.  Systems  T. 

On  remarqueque  la  r6gle  devaluation  du  point-fixe  X  invalide  la 
propriete  de  terminaison  du"  calcul,  ce  qui  montre  qua  X  n'est  pas 
d6finissable  dans  le  calcul  type.  Ici  nous  avons  un  dilemne  :  le  systems  ML' 
n’est  pas  assez  puissant  pour  programmer  une  classe  suffisante  de 
fonctions  arithmetiques,  et  I’ajout  de  X  bonne  directement  toutes  les 
fonctions  partielles  r6cursives,  mais  au  detriment  d’une  propriete 
essentielle  :  la  normalisation  forte.  On  peut  done  se  poser  le  problems 
d’enrichir  ML'  par  des  proc6d6s  de  definition  recursive  plus  limites  que  X 

Tout  d’abord,  on  constate  que  ML'  ne  permet  de  programmer  que  les 
fonctions  polynomials.  M6me  en  s’autorisant  de  coder  les  entiers  par  des 
iterateurs  fonctionnels,  on  peut  montrer  que  la  classe  des  fonctions 

definissables  est  incluse  dans  la  classe  des  fonctions _ 6l6mgntaires 

recursivas.  au  sens  de  Kalmar,  e’est  k  dire  des  exponentielles  it6r6es.  Pour 
obtenir  plus,  il  faut  se  donner  un  operateur  de  recursion.  C’est  I'id6e  du 
systems  T  de  Gddel. 

On  enrichit  CxV  par  les  types  bool  et  nat.  On  se  donne  les  operateurs  : 


true  :  bool  false  :  bool 

if  :  Va.  bool  xaxa-ti 

fl. :  nat  S. :  nat  -»  nat 

B. :  Va.  nat  x  (nat-»  (a-»  a))  xa-ta 


(bool  intro) 
(bool  elim) 
(nat  intro) 
(nat  elim) 


Les  regies  de  calcul  sont,  pour  la  conditionnelle,  cedes  donnees  plus 
haut,  et  pouf  le  recurseur  : 

B(ILf.x)  t>  V 

fi(a(n),f.x)  O  (f  n  E(n.f.x)) 


Exerclces. 

1.  (Kleene)  Programmer  la  fonction  predecesseur. 

2.  (Ackerman)  Programmer  la  fonction  definissable  en  ML  par  : 
Jal  tag  ack(m.n)  •if(m-Q)n+ljf(n-Q,ack(m*l,n-D,ack(m-l,ack(m,n-D))) 
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3.  Montrer  qu'on  peut  remplacer  le  rEcurseur  par  un  itErateur  Nat,  avec : 

Mat :  Vo.  nat  x  (a-»  a)  x  a  -» a 

Nat(O.f.x)  t>  x 

Nal(S.(n),f,x)  O  (f  Nal(n,f,x)) 

L'exercice  2  ci-dessus  montre  qu'on  obtient  beaucoup  plus  qua  les 
fonctions  primitives  rEcursives,  grEce  &  ia  fonctionalitE.  Les 
fonctionnelles  dEfinissables  dans  T  sont  appelEes  fonctionnelles  de  tvoe 
fini.  On  peut  montrer  que  la  famille  des  fonctionnelles  de  type  nat  -»  nat 
sont  exactement  les  fonctions  rEcursives  prouvablement  totales  dans 
I'arithmEtique  de  Peano  (ou,  ce  qui  est  Equivalent,  dans  I'arithmEtique  de 
Heyting).  On  obtient  les  fonctions  primitives  rEcursives  en  restreignant 
I'opErateur  B.  au  type  nat,  c'est  E  dire  avec  seulement  : 

Rnat  :  nat  x  (nat->  (nat-»  nat))  x  nat  -»  nat  . 

ProblEme.  Etendre  la  mEthode  de  la  partie  2  pour  montrer  la 
normalisation  forte  des  termes  typables  dans  le  systEme  T. 


3.7.  GEnErallsation  E  des  structures  de  donnEes. 

II  est  possible  d'Etendre  le  systEme  T  avec  d'autres  structures  que  les 
boolEens  et  les  entiers.  Voici  un  survol  des  possibilitEs. 


3.7.1.  Sommes. 

On  peut  introduire  un  constructeur  +  de  types  sommes,  avec  les 
opErations  : 

ini :  VajS.  o  -»  a+p  ini :  Vaf).  p  -*  a+P  (somme  intro) 
match  :  VoPy.  (a+P)  x  (a  -*  y)  x  (p  -» y)  ->  y  (somme  elim) 

et  les  rEgles  de  calcul  : 
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malcb.(ini(x).y,z)  o  y(x)  i, 

malcii(ini(x),y,z)  o  z(x).  ^ 

On  pent  alors  representer  je  type  bool  par  un  type  somme,  avec  ini 
jouant  le  rdle  de  false  (resp.  ini  jouant  le  rflle  de  true  )  et  match  jouant  le 
rflle  de  it 

L’6quivalent  de  la  r&gle  SP  pour  la  somme  est  : 
matchfx.ini. inr)  O  x  SS. 


Problems.  Etudier  le  calcul  Cx+.  Etudier  les  diverses  combinaisons  de 
regies  de  calcul,  entre  les  regies  de  coupure  (P,  14,  i,,  ij)  et  les  regies 

d’unicite-initialite  (n,  SP,  SS),  dans  les  cas  type  et  non-type. 

Problems.  Etudier  I'axiomatisation  categorique  (CCC)  du  calcul  Cx  type. 
Montrer  que  I'extension  Cx+  ne  correspond  pas  *  postuler  un  co-produit,  qui 
exige  la  loi  supplemental  de  distributivite  du  conditionnel: 
f(maiCtL(x.g.h))  -  matchfx.f  o  g,f  oh)  D. 


3.7.2.  Types  recursifs. 

Si  on  veut  g6n6raliser  le  type  nat,  il  faut  maintenant  pouvoir  exprimer 
des  definitions  recursives  de  type,  du  style  : 

type  nat  -  fi  +  &  gf  nat. 

type  a  list  -■  istil  Cons  g£  a  x  a  list. 

De  telles  definitions  engendrent  automatiquement  les  operateurs 
d'introduction  et  d'eiiminatioo.  correspondants,  ainsi  que  leurs  regies  de 
calcul.  Par  example,  pour  nat  on  obtient  les  operateurs  £L,  fL  et  Nat 
consideres  plus  haut.  De  maniere  analogue,  pour  list  on  obtient : 

M  :  Va.  a  list  Cons  :  Va.  (axa  list)  -» a  list 
List  :  Va{3.  a  list  x  (a  x  (3  -» p)  x  p  -»  p 

avec  les  regies  d'iteration  de  liste  : 
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Lisi(NiLf.x)  o  x 

ListfConsfa.Il.f.xl  =>  f(a,Ual(l.f,x)). 

La  rdgle  da  formation  das  definitions  recursives  da  type  peut  §tre 
contrainte  da  plusieurs  fagons  : 

a  -  Pas  da  contrainte  :  on  peut  ecrira 

tvpft  lambda  -  Quota  q!  lambda  -»  lambda. 

Exercice.  Montrer  qu'avec  ce  type  on  paut  simuler  la  lambda-calcul 
non-type,  at  done  on  na  paut  asperar  un  r6sultat  da  normalisation  forte. 

Remarque:  CAML  sa  place  e  ce  niveau. 

b  •  Recursions  positives. 

On  peut  ecrira  las  types  alg£briques  nat  at  list  ci-dessus,  mais  aussi 
das  types  plus  compliques  tels  qua  las  ordinaux  : 

type  ord  -  Zero  +  Succ  of  Old  +  Limit  of  nat  ord. 

Probiema.  G6n6raliser  la  discipline  Cv  £  une  discipline  CVp, 
autorisant  las  types  recursifs  positifs.  Etandre  £  cette  discipline  la 
r£sultat  da  normalisation  forte. 
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Pour  on  Mvoir  plus.  , 

L'ouvrage  de  'base  sur  Is  X-caicul  non  type  sst  Is  livre  do  Henk 
Barendregt  :  The  Lambda  Calculus,  Its  Syntax  and  Semantics*, 
North-Holla nd,  revised  edition,  1984.  Une  monographic  plus  courts,  du 
memo  auteur,  est  disponible  en  tant  qua  chapitre  du  “Handbook  of 
Mathematical  Logic”,  6dit6  par  J.  Barwise,  North-Holland,  1977. 

Le  meilleur  livre  general  sur  le  X-calcul  (type  ou  non)  at  la  thSorie  des 
combinateurs  est  ‘Introduction  to  Combinators  and  X-caiculus’,  de  Roger 
Hindley  et  Jonathan  Seidin,  Cambridge  University  Press,  1986. 

Pour  le  X-calcul  type,  et  ses  connections  avec  la  thtorie  des  categories, 
on  lira  ‘Introduction  to  higher  order  categorical  logic*,  de  J.  Lambek  et  P. 
J.  Scott,  Cambridge  University  Press,  1986,  ainsi  qua  la  monographic  de 
Pierre-Louis  Curien  :  Categorical  Combinators,  Sequential  Algorithms  and 
Functional  Programming,  Pitman  8  Wiley,  1986. 

A  titre  historique,  on  pourra  consulter  la  monographic  (forigine  <f Alonzo 
Church  :  The  calculi  of  lambda-conversion*,  Ann.  of  Math.  Studios  6. 
Princeton  University,  1941,  ainsi  qua  les  oeuvres  (fHasked  Curry  et  de  see 
collaborateurs  :  Combinatory  Logic,  chez  North- Ho  Hand  (Vol  1,  1968,  et 
Vol  2,  1972). 

Un  certain  nombre  de  rtsultats  important*  ne  sont  disponibles  qua  dans 
des  thbses.  On  citera  tout  particulierement  la  these  de  J.J.  Levy, 
Universite  Paris  7,  1977,  oelle  de  J.Y.  Girard,  Universite  Paris  7,  1972,  et 
celle  de  J  W.  Klop,  Universite  (TUtrecht,  1980,  disponible  cemme  la 
monographic  ‘Oombinatory  Reduction  Systems*  du  Mathematisch  Centrum 
d*  Amsterdam.  - 

Les  connections  entre  X-calcul  type  et  thSorie  de  is  demonstration  sont 
bien  expliquees  dans  les  notes  de  cours  de  J.  Y.  Girard  Types  and  Proofs”, 
Cambridge  University  Press,  1989,  ainsi  qua  dans  eelles  de  J.  L.  Krivine 
‘X-calcul  type*,  i  paraftre  chez  Masson.  Un  ouvrage  plus  avange  est  le 
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livre  de  J.  Y.  Girard  “Proof  theory  and  logical  complexity”,  Bibliopolis  (Vol 
1,  1987,  Vol  2,  k  paraitre). 

II  n'existe  pas  de  presentation  synthetique  des  modules  du  X-calcul.  II 
faut  lire  les  travaux  de  recherche  de  0.  Scott,  G.  Plotkin,  G.  Berry,  A. 
Meyer,  J.  Y.  Girard,  K.  Koymans,  P.  L.  Curien,  R.  Statman.  On  lira  aussi  avec 
profit  les  notes  de  cours  de  G.  Longo  (Carnegie-Mellon  University,  1988). 

Un  recueil  important  de  resultats  de  recherche  est  le  volume 
anniversaire  d6di6  k  H.  Curry  :  “Essays  on  Combinatory  Logic,  Lambda 
Calculus  and  Formalism”,  Academic  Press,  1980. 

La  thdorie  intuitioniste  des  types  de  P.  Martin-L6f  est  ddcrite  dans  sa 
monographie  “Intuitionistic  Type  Theory”,  Bibliopolis,  1984,  ainsi  que 
dans  les  notes  “An  Introduction  to  Martin-L&f  Type  Theory”,  du  groupe 
Programming  Methodology,  Gdteborg,  1986.  Une  implementation  en  est 
d6crite  dans  ‘Implementing  Mathematics  with  the  Nuprl  Development 
System”,  de  R.  Constable  et  al.,  Prentice-Hall,  1986. 

Le  Calcul  des  Constructions  est  etudie  dans  la  these  de  Thierry  Coquand, 
University  Paris  7,  1985,  ainsi  que  dans  divers  papiers  de  recherche.  Voir 
aussi  mes  notes  de  cours  “Formal  Structures  for  Computation  and 
Deduction”,  Carnegie-Mellon  University,  1986. 

Le  calcul  Automath  est  d6crit  dans  une  sdrie  de  papiers  de  N.  de  Bruijn, 
dont  beaucoup  sont  non  publics,  ainsi  que  dans  les  theses  de  R.  Nederpelt 
“Strong  Normalization  in  a  X-calculus  with  X-structured  types’ 
(Eindhoven.  1973),  D.  van  Daalen  “The  language  theory  of  Automath” 
(Eindhoven,  1980),  et  R.  de  Vrijer  “Surjective  Pairing  and  Strong 
Normalization  (Eindhoven,  1987). 

Enfin,  signalons  que  la  thdorie  des  combinateurs  est  presentee  sous 
forme  de  recreations  mathematiques  dans  un  livre  de  R.  Smullyan  :  “To 
mock  a  mockingbird”,  Knopf,  1985. 
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